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Preface 


This  final  scientific  report  summarizes  work  performed  for  the  period  November  1989  to  March 
1994  under  PL  contract  no.  F-19628-90-C-0025.  The  objective  of  this  contract  was  to  enhance 
our  understanding  of  nuclear  induced  atmospheric  plasma  processes  which  give  rise  to  optical  and 
infrared  radiation  emission  which  can  impact  target  discrimination  capabihties  of  surveillance 
acquisition  and  tracking  systems.  This  objective  was  achieved  through  (1)  the  benchmarking  of 
Defense  Nuclear  Agency’s  EGG-22  plasma  emission  code  against  experimental  observations  and 
recent  theoretical  continuum  emissivity  coefficients  and  (2)  the  development  of  the  APOSTLE 
spectral  line  broadening  model. 

In  1980,  the  Air  Force  Phillips  Laboratory  (then  the  Geophysics  Laboratory)  initiated  an 
investigation  into  the  spectral  characteristics  of  atmospheric  plasmas.  The  first  results  were 
reported  in  Applied  Optics'.  It  became  clear  with  the  early  results  that  theoretical  treatments  for 
spectral  line  broadening  in  a  plasma  was  not  well  developed.  Thus,  we  developed  the  APOSTLE 
(Atmospheric  Plasma  Optical  Spectral-Temporal  Line  Emission)  code  to  describe  the  spectral 
emission  characteristics  of  the  plasmas.  This  code  was  developed  in  parallel  with  the  experimental 
program  and  thus  is  well  benchmarked  against  data.  While  subtle  differences  between  the  code 
predictions  and  the  data  persist,  the  overall  agreement  is  excellent. 


1.  INTRODUCTION 

The  study  of  recombining  laser-produced  plasmas  plays  an  important  role  in  understanding  the 
chemical  dynamics  and  temporal  behavior  in  ion-electron  recombination  processes  in  the  disturbed 
upper  atmosphere.  During  these  processes,  atomic  oxygen  is  expected  to  be  the  strongest  emitter 
since  KT  will  charge  transfer  with  0  due  to  its  lower  ionization  energy.  This  charge  transfer  will 
then  result  in  a  persistence  of  a  high  0^  density  for  which  recombination  and  radiative  decay 
become  important. 

There  have  been  few  inftared  spectroscopy  studies  of  laser-produced  atmospheric  plasmas. 
Initial  experiments’  demonstrated  that  laser-produced  plasmas  can  be  used  to  achieve  very  high 
levels  of  atomic  excitation.  Additionally,  laser  produced  plasmas  have  been  shown  to  be  strong 
sources  of  bremsstrahlung  radiation.’’^ 

Spectral  investigation  of  these  plasmas  began  as  early  as  1964^  and  most  of  the  work  since  then 
has  been  in  the  visible  region.^  In  previous  infrared  studies  ,  Laurie  and  Baird'*  and  Lurie  et  al^ 
reported  observations  of  IR  line  emission  in  the  spectral  range  1.80-3.10  pm  and  5. 7-7.5  pm  from 
high-lying  01  States  (Rydberg)  in  a  laser-produced  recombining  oxygen  plasma.  The  observed  01 
spectral  lines,  particularly  near  7.45  pm,  were  unusually  broad  (0.04-0.17  pm)  and  originated 
from  Rydberg  states  with  the  principal  quantum  number  between  3  and  6.  Brown  et  al^  measured 
01  transitions  originating  from  «=6  and  7  by  laser  absorption  spectroscopy  occurring  at 
wavelengths  as  long  as  12.35  pm.  Similarly,  broad  emission  lines  are  observed  by  Winkelmann 
and  Tilgner’  for  Arl  at  4.6,  7.4,  and  12.3  pm  in  an  argon  plasma  jet.  These  studies  suggest  a  large 
Stark  broadening  effect  for  the  hydrogen  states,  which  give  rise  to  these  inter-Rydberg  IR 
transitions.  Studies  of  the  Rydberg  line  emissions  of  alkali  and  alkaline-earth  atoms  have  shown 
that  the  Stark  shifts  increase  in  magnitude  as  the  principal  quantum  number  of  the  initial  energy 
level  of  the  Rydberg  atom  increases.*  In  other  words,  as  the  size  of  the  electron  shell  increases,  the 
bond  between  the  optical  electron  and  the  core  becomes  weaker,  resulting  in  greater  influence  of  the 
external  electric  fields.  For  an  oxygen  plasma,  01  transition  probabilities  have  been  calculated®  for 
n=7-6  and  8-7  transitions  near  12.35  and  19.1  pm,  but  there  are  no  prior  published  measurements. 

Collisional-Stark  broadening  of  emission  lines  from  a  relaxing  plasma  has  been  examined  by  a 
combination  of  spectroscopic  techniques  and  theoretical  treatments.  Line  shape  analysis  provides 
determinations  of  charged  particle  density  and  radiative  transfer  characteristics  in  stellar 
atmospheres,  laser  fusion  plasmas,  and  laboratory  discharges.’®’”  There  is  excellent  agreement 
between  experiment  and  theory  with  respect  to  the  Stark-broadened  lines  of  atomic  hydrogen  and  it 
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is  common  practice  to  seed  laboratory  plasmas  with  hydrogen  to  determine  electron  densities. 
Konjevic  and  Roberts*"*  and  Konjevic  et  al}^  have  critically  reviewed  and  tabulated  the 
experimental  data  of  Stark  widths  and  shifts  of  spectral  lines  of  non-hydrogenic  atoms.  These  data 
are  compared  with  the  extensive  theoretical  calculations  of  Griem’®  for  the  lighter  elements  up  to 
Ca  (as  well  as  Cs)  and  with  results  of  Dimitrijevic  and  Konjevic’^  for  some  heavier  elements.  In 
general,  the  agreement  with  these  semi-classical  calculations***’**  is  within  20%.  For  some  of  the 
heavier  elements,  the  discrepancies  are  larger. 

Several  experiments  have  tested  the  predictions  of  Stark  broadening  theories  for  some  plasma- 
broadened  neutral  oxygen  lines.*’’**’*®’^**’^*  Plasma  sources  used  in  these  investigations  include 
well-stabilized  arcs,  a  gerdin-type  generator,  shock  tubes,  and  RF  discharges.  For  these  LTE 
(local  thermodynamic  equilibrium)  plasmas,  the  electronic  temperature  of  the  radiator  is 
determined  typically  from  absolute  line  intensity  measurements  and  ranges  from  10,000  K  to 
14,000  K.  The  electron  density  is  in  the  range  of  (l-lO)xlO**  cm^  from  Hp  line  width 
measurements.  There  is  generally  good  agreement  (within  30%)  between  the  experimental  and 
calculated  line  widths  and  shifts.  The  comparisons  for  oxygen  (01)  and  other  neutral  atoms  are 
almost  entirely  for  spectral  lines  emitted  in  the  near-UV  and  visible.  There  is  little  mformation 
available  on  Stark  broadening  of  infrared  spectral  lines.  Though,  line  widths  and  shifts  have  been 
measured  for  several  Arl,  NI,  and  SI  lines  in  the  near-IR,  A.=l-2|mi.  21.22  23.24.25,26.27  Xypically  these 
line  widths  are  poorly  predicted  by  theory.  Stark  broadening  parameters  have  been  calculated*'  for 
other  non-hydrogenic  atoms,  particularly  for  isolated  spectral  lines  of  He  and  Na  and  for  longer 
wavelengths,^*  but  there  are  no  experimental  data  with  which  to  compare.  Laboratory 
measurements  of  atomic  oxygen  emission  line  profiles  between  1  and  3  pm  have  been  made  by 
Assous^*  at  an  electron  density  of  about  3x10*®  cm'*  in  an  induction-heated  oxygen  plasma.  The 
experimentally  determined  line  widths  and  shifts  are  in  poor  to  good  agreement  with  different 
calculations  depending  on  the  theoretical  method  used.  Baird  and  Alexiou^^’***  have  performed 
Stark  line  broadening  calculations  for  high  angular  momentum  states  of  atomic  oxygen,  principally 
the  n=6  to  5  transitions  near  7.45  pm.  These  semi-classical  calculations  were  used  to  investigate 
the  sensitivity  of  the  01  line  widths  to  electron  densities  and  temperatures. 

The  determinations  of  Stark  electron-broadening  parameters  by  existing  semi-classical**’'**'*^'**’** 
or  fully  quantum  mechanical**’**’*®  theoretical  methods  generally  require  heavy  computational 
demands  even  for  single  line  calculations.  A  large  number  of  atomic  inter-Rydberg  transitions  and 
nearby  perturbing  levels  are  required  to  calculate  plasma  broadened  IR  spectral  line  emission.  To 
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interpret  these  data,  an  efficient,  yet  accurate,  calculation  method  is  needed.  Due  to  the  lack  of 
Stark  broadening  parameters  for  01 IR  transition  with  2  pm,  a  modified  version  of  present 
theoretical  methods  is  used  to  predict  the  IR  spectrum  of  laser-produced  oxygen  plasma.  First,  the 
Anderson  formalism^’  is  used  to  produce  an  efficient  model  of  electron  collisional  broadening.  The 
impact  approximation  model  is  then  coupled  to  a  quasi-static  model  of  Hooper^*  to  accoimt  for  ion 
collisional  broadening.  While  previous  efforts  have  concentrated  in  the  visible  and  near-IR  region 
of  the  spectrum,  the  present  study  predicts  spectra  over  a  wide  spectral  range.  With  increasing 
levels  of  approximation  within  the  model  one  can  obtain  Stark  broadened  spectra  over  a  large 
spectral  range  with  decreasing  computational  demands. 

In  this  final  report  we  present  the  infrared  spectrum  of  a  laser-produced  oxygen  plasma.  We 
have  focused  on  extending  the  spectral  range  of  observation  of  01  Rydberg  emission  to  13  pm.  We 
report  here  the  first  observations  of  01  Rydberg  line  emission  in  the  wavelength  region  8-13  pm. 
Additionally,  we  present  observations  of  Bremsstrahlung  radiation  that  compare  fevorably  in  shape 
and  magnitude  with  recent  theoretical  emissivity  coefficients  by  Lin^^  for  ffee-ffee  transitions  in  the 
field  of  a  neutral  oxygen  atom.  The  data  are  also  compared  to  the  continuum  theories  of  John  and 
Williams'^  and  Geltman'*’  as  well  as  the  empirical  values  of  Taylor  and  Caledonia.'*^ 

We  have  developed  a  model  to  predict  the  plasma  01  line  emission  spectrum.  We  describe  here 
the  theoretical  basis  and  the  functionality  of  the  model.  The  line  emission  model  is  used  in 
conjunction  with  Lin’s^®  emissivity  coefficients  to  characterize  the  plasma  conditions.  These 
results  are  compared  to  the  data  and  discussed  in  the  rest  of  this  report.  In  Chapter  2,  the  issues 
addressed  under  this  contract  are  described.  In  Chapter  3,  the  experimental  apparatus  used  in  this 
study  is  described  and  procedures  for  data  reduction  is  outlined.  The  observations  are  presented  in 
Chapter  4.  In  Chapters  5  and  6,  we  present  the  validation  of  EGG-22  through  comparison  with 
Lin’s  emissivity  coefficients  and  we  describe  the  APOSTLE  line  emission  model.  The  results  of 
line  and  continuum  emission  modelling  are  compared  with  the  data  in  the  Chapter  7.  Finally,  a 
user’s  manual  for  the  model  is  included  in  Appendix  A.  In  Appendix  B,  we  list  the  source  code 
and  in  Appendix  C,  we  list  APOSTLE  predicted  line  positions  and  Einstein  coefficients. 
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2.  LINUS  ISSUES 

Previous  work  on  the  LINUS  project  motivated  the  need  to  extend  the  spectral  range  of 
observation  to  validate  existing  plasma  radiance  models.  The  extended  range  allowed  us  to 
investigate  more  completely  the  behavior  of  continuum  emission  from  a  laser  produced  oxygen 
plasma.  This  investigation  was  parallel  to  the  development  of  new  emissivity  coefBcients  for 
electron-neutral  collisions  for  atomic  oxygen.  The  data  reported  herein  is  in  good  agreement  with 
these  new  coefficients  and  provided  benchmarking  for  the  EGG-22  plasma  radiance  model. 

The  literature  review  also  revealed  a  lack  of  mformation  on  the  subject  of  colhsional-Stark 
broadening  of  01  infrared  lines.  Thus  we  developed  a  computationally  efficient  model  of  coUisional 
Stark  broadening  of  line  emissions  from  atomic  oxygen  within  a  laser-inducol  plasma.  The  model 
is  based  on  a  combination  of  earlier  theories  of  Stark  broadening  and  is  in  good  agreement  with 
previous  experimental  and  theoretical  works.  The  model  was  used  to  generate  spectra  for  a  wide 
range  of  parameters.  The  comparison  of  the  many  numerically  computed  spectra  and  the 
experimentally  measured  spectral  emissions  provided  estimates  of  01  electronic  temperature  and 
electron  density  and  temperature.  Finally,  application  of  the  model  to  the  LWIR  region  of  the  01 
spectrum  shows  Stark  broadening  effects  from  coUisional  broadening  in  lower  density  plasmas 
(iV,~10'^cm'^). 

The  goal  of  this  investigation  was  to  validate  the  EGG-22  plasma  radiance  model.  The  data 
presented  in  this  final  report  was  acquired  using  the  LINUS  experiment  at  Phillips  laboratory.  In 
particular,  the  issues  addressed  in  this  contract  were 

1.  Parametric  Issues;  The  parameters  used  to  characterize  the  plasma  conditions  are  0-atom 
density,  electron  density,  electron  temperature,  and  emitter  electronic  temperature.  The 
electronic  temperature  is  derived  from  the  continuum  subtracted  spectrum.  In  conjunction 
with  Saha  equilibrium,  the  simultaneous  fit  of  the  continuum  and  line  emission  models  give 
the  best  parameter  estimates  that  describe  the  plasma  conditions. 

2.  Thermalization  issues;  01  Ryderg  states  are  collisionally  coupled  when  there  are  a  sufficient 
number  of  thermalizing  collisions.  State  populations  are  measured  in  the  observed  line 
emission  spectrum.  Complete  Local  thermodynamic  equilibrium  (LTE)  is  not  expected  to 
occur  in  the  plasma  but  Saha  equilibrium  is  expected.  Spectral  calculations  were  performed 
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using  the  ARCHON  chemical  kinetics  code  to  model  state  populations  of  a  recombination 
model  where  deviations  from  equilibrium  are  expected. 

3.  Validation  of  EGG22;  The  EGG-22  plasma  radiance  model  is  compared  with  lin’s 
theoretical  emissivity  coefficients  for  e-0  collisional  interactions.  These  new  coefficients  are 
also  compared  to  data  and  to  previous  theories. 

4.  LWIR  line  emission  observation;  We  have  extended  the  spectral  of  01  line  emission 
observation  to  13  pm.  First  observations  of  composite  lines  occurring  at  10.4  and  12.35  are 
reported  here. 

3.  EXPERIMENTAL 

A.  LINUS  Experimental  Platform 

The  apparatus  used  for  this  study  is  similar  to  that  used  by  Lurie  and  Baird'^  and  is  illustrated  in 
Figure  1.  The  apparatus  was  used  to  acquire  a  continuous  infrared  spectrum  from  3.5-13.0  pm. 
The  beam  from  a  Quanta-Ray  Nd:YAG  laser  (model  DCR  lA,  X=1.064  mm,  10  ns  fwhm 
multilongitudinal  pulse,  10  Hz  repetition  rate)  was  propagated  in  the  plane  of  the  optical  table, 
deflected  vertically  using  a  comer  cube  prism,  and  focused  with  a  51  mm  focal  length  biconvex 
lens  into  a  cubical  cell  fitted  with  uncoated  ZnSe  windows. 

The  radiation  from  the  laser-produced  plasma  was  collected  at  90°  to  the  laser  beam  axis  and 
imaged  onto  the  entrance  slit  of  a  0.5  m  f76.9  grating  monochromator  (SPEX  Industries  Model 
1870)  using  two  100  mm  focal  length  uncoated  ZnSe  plano-convex  lenses.  Two  gratings  and  three 
filters  were  used  to  cover  the  broad  spectral  range.  The  combinations  are  given  in  Table  1.  The 
long-pass  filters  were  used  to  block  higher-order  emissions. 

Table  1.  Gratings  and  interference  filters  used  to  acquire  a  continuous  infrared  spectrum  across 
the  spectral  range  3.5-13.0  pm. 


Spectral  Region  (pm) 

Long-pass  Filter  (pm) 

Grating 

3. 5-6.3 

3.3 

150  grooves/mm 

6.3-8.0 

6.1 

150  grooves/mm 

6.3-13.0 

6.1 

75  grooves/mm 

8.0-13.0 

8.8 

75  grooves/mm 
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Figure  1.  Experimental  Apparatus  used  for  acquisition  of  a  continuous  3.5-13.0  pm  emission  spectrum 
from  a  laser  produced  oxygen  plasma. 

A  liquid  nitrogen  cooled  HgCdXe  detector  (Santa  Barbara  Research  Center,  5  mm  square 
element)  operated  in  the  photo  conductive  mode  with  a  matched  preamplifier  (SBRC  Model  A1 10, 
80  db  voltage  gain)  was  used  to  detect  the  infrared  emissions.  The  detector  is  well  suited  for  use 
in  the  spectral  range  3-13  pm  and  has  a  detectivity  of  ~10'®  cm  Hz'*^  W'  near  6  pm  yielding  an 
estimated  NESR  of  ~  10"®  W  cm'^  sf '  pm  '.  In  the  MWIR  region  (3.5-8.0  pm),  the  4p^  P-3d^  D 
transition  near  6  pm  has  a  signal-to-noise  ratio  of  ~40.  In  the  LWIR  region  (8.0-13.0  pm),  the 
10.4  pm  line  emission  has  a  signal-to-noise  ratio  of  ~15. 

01  visible  diagnostic  information  relating  to  energy  deposition  was  monitored  using  a 
Hamamatsu  photomultiplier  tube  fitted  with  a  narrow  band  pass  filter  (20  nm)  near  715.8  nm  and  a 
neutral  density  filter  (O.D.=4.0).  The  line  emission  of  interest  in  this  window  is  the  3p'('D)- 
3s'('D°)  transition  originating  from  a  state  with  a  Rydberg-like  energy  of  116631  cm  '  ( Ionization 
potential  =  109837  cm  '  ).  Stability  of  the  715.8  nm  signal  during  all  data  acquisition  ensured 
stable  energy  deposition. 

In  this  study,  the  plasma  was  produced  fi^om  1 10  torr  high  purity  O2  (Matheson,  99.995%).  A 
laser  pulse  energy  of  780  mJ  created  an  estimated  intensity  of  2x10'^  W  cm'^  in  the  focal  plane. 
The  resulting  plasma  emission  region  appeared  cylindrically  shaped  and  approximately  6  mm  long 
and  2  mm  in  diameter.  During  all  data  acquisition,  the  entire  optical  path  was  enclosed  in 


6 


plexiglass  and  purged  with  dry  nitrogen  to  minimize  CO2  and  H2O  absorption  effects  on  the 
measured  plasma  emissions. 

B.  Data  Acquisition  and  Reduction 

Data  acquisition  was  performed  with  a  Princeton  Applied  Research  model  162  boxcar  averager 
operated  in  conjunction  with  a  model  165  gated  integrator  using  a  0.6  ps  aperture  duration.  Fifty 
laser  shots  were  averaged  per  wavelength  increment.  Measurements  were  taken  with  an  aperture 
delay  time  of  20  ps.  The  output  of  the  boxcar  averager  was  sent  to  a  HP  Model  9000  series  310 
computer  which  averaged  50  laser  shots  per  wavelength  increment. 

The  absolute  spectral  response  of  the  system  was  determined  with  an  Infrared  Industries  model 
408  blackbody  source  operated  at  1000°C  where  the  signal  processing  of  the  blackbody  emissions 
was  done  with  a  Stanford  Research  Systems  lock-in  amplifier.  The  wavelength  accuracy  of  the 
system  was  calibrated  using  a  HeNe  laser  in  the  sixth  and  higher  orders. 

Individual  scans  were  recorded  digitally  on  the  HP  computer  and  transfered  to  an  IBM  PC 
compatible  computer  at  Mission  Research  Corporation.  Information  about  the  scan  was  recorded 
and  used  for  the  data  reduction  process.  The  spectral  response  of  the  system  was  then  derived 
from  a  comparison  of  the  observed  blackbody  emission  spectra  \vith  the  theoretical  blackbody 
fimction.  Figure  2  illustrates  the  optical  path  traversed  by  the  emissions  being  studied. 


The  measured  voltage  output  of  the  detector  (mV)  for  a  given  source  spectral  radiance,  O 
(W  cm'^  sr  'pm  '),  is  given  by:®’ 
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(1) 


x+ax 

X-M 


where, 

R  =  Instrument  Spectral  Response, 

O-uSi-LiShiiSha,  O.DET  =  Solid  angles  subtended  by  mirrors  1  and  2,  lenses  1  and  2,  and  the 
detector, 

Ap  =  Apparent  disk  of  the  spark, 

T{X)  =  Total  transmittance  excluding  window  1. 

Using  the  theoretical  blackbody  function,  N{X,T),  The  spectral  response  is  written  as. 


R(X)  = 


_ Sbe^^) _ 

ABB^SB^^^^^T\X)NiX,T)^XBBi^) 


where. 


(2) 


T*(X)  =  Tffri(X)T(X)  is  the  total  transmittance  including  window  1, 

X+AX 

j  0(A)£fA  =  <D(A)AAp(A)  and  AXp  is  the  instrument  resolution. 
X-AX 


Substituting  equation  (28)  into  (27)  yields  the  spectral  radiance  of  the  observed  plasma  emissions. 


0(A)  = 


A,^Qb  AAg(A) 
Ap^p  ^b(^)  ^piX) 


Typi{X)N{X,T)  -  CalibrationFactor 


SpjX) 

ixXpiX) 


(3) 


4.  OBSERVATIONS 

Figure  3  shows  the  IR  spectrum  of  the  laser-produced  oxygen  plasma.  The  spectrum  can  be 
described  by  the  spectral  sum  of  continuum  radiation  and  collisionally  broadened  line  emission. 
The  plasma  consists  of  excited  and  ionized  atoms  and  electrons  which  radiate  and  recombine  to 
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Figure  3.  The  short-dashed  curve  is  the  IR  emission  spectrum  of  the  laser-produced  oxygen  plasma  at  an 
aperature  time  delay  of  20  ps.  The  plasma  was  created  from  1 10  torr  O2  and  the  measurement  is  of  the 
center  of  the  emission  region.  The  medium-dashed  curve  is  the  continuum  model  and  the  solid  curve  is 
the  sum  of  the  continuum  and  line  emission  models. 

form  electronically  excited  neutral  atomic  oxygen.  Initially  (<1  ps),  infrared  emission  from  the 
plasma  is  mostly  recombination  and  continuum  radiation  which  decreases  rapidly  as  radiative  and 
collisional  relaxation  processes  progress.  At  20  ps,  the  major  species  are  0,  C,  and  electrons  with 
electron-to-neutral  density  ratio  <1% 

Significant  continuum  radiation  persists  throughout  the  plasma  lifetime.  Continuum  radiation 
occurs  through  both  electron  recombination  with  ions  (free-bound  or  recombination  radiation),  and 
electron  collisions  with  ions  and  neutral  atoms  (free-free  transitions  or  bremsstrahlung  radiation). 
Since  bremsstrahlung  radiation  from  electron-neutral  atom  interactions  is  not  a  Coulombic  process, 
the  interaction  is  short-ranged.  As  such,  bremsstrahlung  radiation  due  to  electron-atom 
interactions  is  expected  to  dominate  only  after  ~I0  ps;  prior  to  this  electron-ion  interactions 
dominate.  The  observed  continuum  spectrum  is  modelled  using  a  theory  for  free-free  transitions  in 
the  field  of  a  neutral  which  is  superposed  with  the  line  emission  component  of  the  spectrum. 

The  infrared  line  emission  spectrum  is  produced  by  inter-Rydberg  state  transitions.  These 
states  are  populated  by  recombination  and  collisional  processes.  Initial  studies  of  the  thermal 
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equilibration  time  between  electrons  and  atoms  suggest  that  thermalization  is  achieved  in 
approximately  6  Collisional  coupling  is  then  expected  to  occur  for  those  Rydberg  states 

within  kTe  of  the  ionization  potential.  Consequently,  Saha  equilibrium  is  assumed  to  describe  the 
Rydberg  state  population  distribution.  Emitter  line  profiles  in  a  laser-produced  plasma  are 
broadened  through  the  Stark  effect  by  ions  and  collisions  with  electrons.  Collisional-Stark 
broadening  of  spectral  lines  is  significant  even  at  low  electron  densities  (lO'^  cm^).  We  developed 
a  collisional-Stark  broadening  model  to  predict  the  line  emission  spectrum.  The  model  is  described 
in  detail  in  Chapter  6  and  only  pertinent  information  is  reviewed  here.  The  line  emission  model 
predicts  the  spectrum  using  electron  density,  Ne,  electron  temperature,  Tg,  ion  temperature,  Ti,  and 
emitter  electronic  temperature,  Tgt,  as  free  parameters.  For  this  study,  we  set  Tg  =Tei  where  the 
empirically  derived  temperature  was  used  in  the  spectral  calculation. 

We  examine  the  characteristics  of  the  plasma  by  simultaneously  fitting  continuum  and  line 
emission  models  to  the  observed  spectrum.  The  parameters  used  to  characterize  the  plasma 
conditions  are  0-atom  density,  electron  density,  electron  temperature,  and  emitter  electronic 
temperature.  The  electronic  temperature  is  derived  fi-om  the  continuum  subtracted  spectrum.  In 
conjunction  with  Saha  equilibrium,  the  simultaneous  fit  of  the  continuum  and  line  emission  models 
give  the  best  parameter  estimates  that  describe  the  plasma  conditions.  These  results  are  discussed 
below.  The  line  emission  model  fitting  is  described  in  further  detail  in  Chapter  7. 

A.  Line  Emission 

The  continuum  subtracted  spectrum  is  shown  in  Figure  4.  Table  2  is  a  listing  of  the  line 
positions  of  the  spectral  features  observed  in  the  region  3.5  to  13  [om,  their  transition  assignments, 
predicted  Einstein  coefficients  and  observed  line  widths.  The  observed  transitions  are  illustrated  in 
energy-level  diagrams  in  Figure  5 .  It  should  be  noted  that  the  line  widths  are  to  be  interpreted  only 
qualitatively  since  there  is  a  high  degree  of  spectral  blending. 

The  feature  near  10.4  pm  is  given  a  composite  line  assignment  dominated  by  6d^D-6p^P  and 
5p^P-4d^D.  The  broad  feature  near  12.35  pm  occurs  at  the  long  wavelength  edge  of  the  detector 
responsivity  and,  therefore,  the  line  shape  of  the  feature  is  not  entirely  realized.  This  feature  is 
predicted  to  be  dominated  by  six  transitions:  7  g,h,i^’^  G,H,I  -6f,g,h^’^  F,G,H.  This  is  the  first 
reported  observation  of  the  10.4  and  12.35  pm  emission  fi-om  a  laser  produced  plasma. 

We  have  examined  the  integrated  intensities  of  5  transitions  in  the  spectrum  that  exhibit  the 
least  blending  with  other  features  for  state  population  and  electronic  temperature  determination. 
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Figure  4.  The  01  line  emission  spectrum  was  obtained  by  subtracting  the  power  law  fit  to  Lin’s  emissivity 
coefBcients  shown  in  Figure  3. 
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Figure  5,  Energr  level  diagram  illustrating  the  major  transitions  observed  in  the  line  emission  spectrum 
from  3.5  to  13.0  pm. 
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TABLE  2.  Observed  line  positions,  assignments,  calculated  Einstein  coefficients,  and  approximate 
line  widths  in  LINUS  IR  plasma  spectra  at  20  ps. 


Observed 

Feature 

(pm) 

Wavelength* 

(pm) 

Transition 

Assignment* 

(spin  in  parantheses) 

(s-’) 

approximate 

FWHM® 

(Min) 

3.67 

3.6618 

5s-4p  (1) 

1.227x10’ 

0.04 

3.89 

3.8819 

5f-4d  (2) 

9.603x10’ 

0.04 

3.94 

3.9474 

5f-4d  (1) 

5.794x10’ 

0.02 

4.04 

4.0496 

5g-4f(2) 

1.916x10* 

0.04 

4.0499 

5g-4f(l) 

1.149x10* 

4.56 

4.5607 

4p-3d(l) 

9.371x10® 

0.04 

4.6510 

7g-5f(l) 

1.481x10’ 

4.6511 

7h-5g(l) 

1.680x10’ 

4.62 

4.5254 

7f-5d  (2) 

1.585x10’ 

0.2 

4.6507 

7g-5f(2) 

2.469x10’ 

4.6511 

7h-5g(2) 

2.799x10’ 

5.69 

5.6842 

5d-5p  (2) 

4.146x10’ 

0.1 

5.98 

5.9773 

4p-3d  (2) 

7.405x10® 

0.04 

6.51 

6.4978 

5d-5p  (1) 

1.995x10’ 

0.06 

6.61 

6.6249 

5p-5s  (2) 

1.5 14x10’ 

0.05 

6.86 

6.8583 

5p-5s  (1) 

8.911x10® 

0.04 

7.19 

7.1786 

6s-5p  (2) 

8.170x10® 

— 

7.2664 

6f-5d  (1) 

1.615x10’ 

7.4281 

6g-5f(2) 

5.032x10’ 

7.44 

7.4285 

6g-5f(l) 

3.020x10’ 

7.4556 

6h-5g(l) 

5.431x10’ 

0.15 

7.4556 

6h-5g  (2) 

9.052x10’ 

10.38 

10.3859 

6d-6p  (2) 

1.408x10’ 

0.2 

10.3995 

5p-4d  (1) 

3.435x10® 

12.3629 

7g-6f(2) 

1.694x10’ 

12.3644 

7g-6f(l) 

1.017x10’ 

12.35 

12.3648 

7h-6g(l) 

1.757x10’ 

0.5 

12.3648 

7h-6g(2) 

2.929x10’ 

12.3625" 

7i-6h  (1) 

2.892x10’ 

12.3625" 

7i-6h  (2) 

4.821x10’ 

“  Taken  from  Chimg  et  al. 

Only  approximate  since  there  is  a  high  degree  of  blending  associated  with  these  features. 


These  transitions  include:  5s^P-4p'S,  4p^P-3d^D,  4p'P-3d'D,  5p^D-5s^P,  and  5p'P-5s'S  ,  occurring 
near  3.67,  4.56,  5.98,  6.61,  and  6.86  pm  respectively.  Assuming  Saha  equilibrium,  the  integrated 
intensity  (  Wcm"^  sf ' )  of  the  spectral  distribution  of  a  transition  is  given  by: 
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(4) 


,  d  Nq  (  hcF\. 


he 

T 


where  No  is  the  total  atom  density  divided  by  the  partition  function,  F  the  emitting  state  term 
value,  T  the  electronic  temperature,  A  the  Einstein  coefiBcient,  and  X  the  transition  wavelength. 
The  degeneracy,  g  is  given  by  (2/+l)(2s+l).  The  path  length,  d,  was  calculated  with  a  Lagrangian 
hydrodynamics  model.  The  model  predicted  that  the  plasma  emission  region  is  approximately 
6  mm  long  and  2  mm  in  diameter  which  is  consistent  with  visual  observation.  Since  the 
monochromator  slit  was  perpendicular  to  the  long  axis  of  the  emission  re^on,  a  path  length  of 
2  mm  was  used  in  the  analysis  of  the  data.  Linearization  of  equation  (4)  yields  the  following 
relationship: 


In 


I 

-_1( 

^hcF^ 

+  ln 

r^oi 

gAhc !  X_ 

r 

<  J 

.4^. 

(5) 


Figure  6  shows  the  results  of  the  left  hand  side  of  equation  (5)  plotted  against  hcF/k  for  the  five 
transitions.  An  electronic  temperature  of  8000  ±  1000  K  is  derived  from  the  slope  of  the  least 
squares  fit  to  the  data.  The  intercept  determined  from  the  least  squares,  which  reveals  information 
about  the  absolute  number  density,  is  not  used  in  the  analysis  since  a  large  error  bar  is  associated 
with  that  number.  The  uncertainty  in  the  derived  temperature  is  the  standard  deviation  associated 
with  the  fit.  The  error  bars  on  the  data  points  were  derived  from  the  following  sources:  (1)  signal- 
to-noise  estimations  near  each  feature  which  resulted  in  individual  intensity  errors  varying  across 
the  range  4-9%,  and  (2)  10%  estimated  area  in  the  total  intensity  of  the  spectrum  based  on 
repetitions  of  the  same  experiment.  In  the  error  analysis,  linear  detector  response  with  respect  to 
signal  was  assumed.  The  derived  electronic  temperature  was  then  used  in  the  line  emission 
modelling  to  obtain  an  estimate  of  the  electron  density. 

The  five  transitions  used  for  electronic  temperature  estimation  were  also  used  to  estimate  state 
populations.  By  determining  the  ratio  of  the  relative  integrated  line  intensities,  the  relative  emitting 
state  populations  are  measured.  Table  3  lists  the  ratios  of  the  transition  probabilities,  observed 
intensities  multiplied  with  their  respective  transition  energies,  measured  upper  state  populations 
and  energies.  A  term  diagram  is  shown  for  the  five  transitions  in  figure  7. 
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Figure  6.  The  electronic  temperature  is  determined  from  a  least  squares  fit  the  plot  of  the  left-hand  side  of 
equation  (5)  against  hcFyk.  The  least  squares  fit  is  shown  as  the  solid  line  which  is  associated  with  an 
electronic  temperature  of  8000±  1000  K  where  the  uncertainty  reflects  the  standard  deviation  of  the  fit. 


TABLE  3.  Measured  relative  populations. 


Upper  State  Ratio 

Energies  (cm*’) 

Ni/Ni 

giA/gjAj 

liEj/IjEi 

4p(l)/5s(l) 

99681,  102412 

1.26  ±  0.06 

0.763 

0.964 

4p(l)/4p(2) 

99681,  99094 

0.80  ±  0.05 

1.265 

1.018 

4p(l)/5p(2) 

99681,  103626 

2.1  ±0.2 

0.619 

1.290 

4p(l)/5p(l) 

99681,  103870 

2.0 +  0.2 

1.051 

2.050 

5s(l)/4p(2) 

102412,  99094 

0.61  ±0.04 

1.657 

1.056 

5s(l)/5p(2) 

102412,  103626 

1.6  ±0.1 

0.811 

1.338 

5s(l)/5p(l) 

102412,  103870 

1.5  ±0.2 

1.377 

2.126 

4p(2)/5p(2) 

99094, 103626 

2.6  ±  0.2 

0.489 

1.267 

4p(2)/5p(l) 

99094,  103870 

2.5  ±0.3 

0.831 

2.013 

5p(2)/5p(l) 

103626, 103870 

1.2  ±0.1 

1.669 

1.589 

Inspection  of  Table  3  shows  the  measured  populations  to  decrease  with  increasing  state  energy. 
This  suggests  that  these  states  are  collisionally  coupled.  Electronic  population  of  the  Rydberg 
states  are  associated  with  more  loosely  bound  electrons  and  are  thus  more  susceptible  to  external 
effects  induced  by  the  plasma.  Under  Saha  equilibrium  conditions,  thermalization  through 
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Figure  7.  Term  Hiagram  for  the  five  transitions  used  for  the  electronic  temperature  determination  and 
state  population  measurement. 


collisions  with  electrons  determines  the  population  distribution.  The  distribution  reflects  the 
electron  temperature  (  Tei  =  Te ).  Specifically,  those  Rydberg  states  within  kTe  of  the  ionization 
potential  may  display  coupled  electron  and  electronic  temperatures. 

B.  Continuum 

The  electron  and  atomic  oxygen  densities  can  be  estimated  from  the  continuum  if  the  electron 
temperature  is  known,  the  plasma  is  collision  dominated,  and  the  form  of  the  continuum  is  known. 
Figure  3  shows  the  power  law  fit  to  the  theoretical  emissivity  coefficients  of  Lin.^®  The  electron 
density  was  determined  from  the  line  emission  modelling  and  the  electronic  temperature  was 
measured  from  the  spectroscopic  analysis  of  integrated  line  intensities. 

From  the  continuum  fit,  the  product  of  the  path  length  and  electron  and  atomic  oxygen  densities 
can  be  determined  by  from: 

e{_X,T)  =  dN,N,J{X,T)  (6) 
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where  J{X,T)  is  the  power  law  fit  to  Lin’s  emissivity  coefficients.^’  The  electron  and  atomic 
oxygen  densities  were  uniquely  determined  using  equation  (6)  and  the  Saha  equilibrium  condition. 
Saha  equilibrium  predicts  the  ratio  of  the  square  of  the  electron  density  to  the  oxygen  density  given 
the  electron  temperature:^ 

No  [  )  go 

where  Eo  is  the  multiplet  averaged  ground  state  energy,  I  is  the  ionization  limit,  T  is  electron 
temperature,  m  is  the  electron  mass,  and  g+  and  go  are  the  multiplet  average  ground  state 
degeneracies  for  the  ion  and  neutral.  Using  the  spectroscopically  determined  temperature,  the 
electron  and  atomic  oxygen  densities  are  estimated  to  be  8x10^’  and  5x10^*  cm^  respectively. 
Using  these  values  in  eq.  (6)  results  in  an  effective  path  length  of  0.016  cm. 

5.  BREMSSTRAHLUNG  RADIATION 

Continuum  emission  in  the  laser-produced  plasma  is  due  to  fi-ee-fi'ee  (Bremsstrahlimg)  and  fi-ee- 
bound  processes.  Continuum  emission  due  to  bremsstrahlung  radiation  by  electron-ion  collisions 
and  recombination  are  well  understood,  and  the  reader  is  guided  towards  the  previous  LINUS  final 
report  for  additional  information.  For  bremsstrahlung  radiation  due  to  electron-neutral  collisions 
(F-F(N))  we  outline  the  threoretical  developments  that  were  concurrent  with  experimental  program. 

Bremsstrahlung  radiation  due  to  electron-neutral  collisions  in  the  EGKj-22  plasma  radiance 
model  is  based  on  the  work  by  Zel’dovich  and  Raizer."*’  The  expression  for  the  F-F(N)  emission 
coefficient  may  be  expressed  as, 

The  formulation  of  equation  (8)  is  not  regarded  as  exact  since  different  temperature  and  energy 
dependencies  can  be  derived  based  on  different  representations  of  the  electron-neutral  atom 
interaction.  This  formulation  is  the  one  presently  used  in  the  EGG-22  plasma  radiance  model.  The 
cross  section  for  interaction  is  not  well  established  here  but  has  a  direct  impact  on  the  coefficient. 
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EGG-22  uses  cross  sections  derived  from  the  experimental  results  of  Taylor  and  Caledonia"*^  which 
are  expressed  in  terms  of  radiative  absorption  coefficients.  However,  the  measurements  were  only 
made  at  2,  3.5,  and  5  pm  and  at  only  one  electron  temperature.  Thus,  there  is  considerable 
uncertainty  in  extrapolating  and  interpolating  these  results  to  different  wavelengths. 

Lin's  treatment^^  of  the  emissivity  coefficient  for  free-fi'ee  transitions  in  the  field  of  a  neutral 
oxygen  atom  is  fully  quantum  mechanical  and  implements  polarized  orbitals.  In  Tables  4,  5,  and 
6,  we  list  the  values  for  Lin’s  emissivity  coefficients^®  and  the  values  predicted  by  EGG-22  for 
electron  temperatures  of  10000  K,  25000  K,  and  50000  K  in  the  wavelength  range  1  to  30  pm. 
Figure  8  is  a  plot  the  emissivity  coefficients  for  each  of  the  three  temperatures.  There  is 
reasonably  good  agreement  between  Lin's  coefficients^®  and  EGG22  at  lOOOO  K.  However,  there  is 
markedly  different  behavior  as  the  electron  temperature  is  increased.  The  distinguishing 
characteristic  is  that  Lin's  coefficients^®  increase  with  increasing  electron  temperature  whereas  the 
prediction  by  EGG-22  shows  just  the  opposite.  This  result  is  surprising  since  intuitively, 
Bremsstrahlung  emission  due  to  electron-neutral  collisions  should  decrease  due  to  the  decreasing 
residence  time  of  the  electron  near  the  atom  decreases  as  the  electron's  effective  temperature 
increases.  Discussions  with  Lin^®  have  indicated  that  the  "intuitive"  decrease  with  increasing 
temperature  may  be  fallacious  and  the  apparent  increase  is  due  to  energetic  wave-  function  overlap 
in  this  region.  It  is  probably  academic  however,  since  at  50000  K,  electron-neutral  Bremsstrahlung 
emission  is  a  minor  source  of  radiance  (the  gas  is  nearly  100%  ionized). 

In  figure  9,  Lin’s  theoretical  coefficients  are  compared  with  those  of  John  and  Williams^, 
Geltman'**,  and  the  empirical  coefficients  of  Taylor  and  Caledonia.'*^  The  theories  agree  within  a 
factor  of  two  with  one  another.  There  is  considerable  disagreement  however,  between  the 
theoretical  and  the  empirical  values. 
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TABLE  4.  Bremsstrahlung  emissivity  coefficients  for  free-free  in  the  field  of  a  neutral  at  an  electron 
temperature  r*=10000  K. 


X 

ChimLin 

EGG-22 

Ratio 

1 

4.3(-36) 

1.5(-35) 

0.29 

5 

3.7(-37) 

6.5(-37) 

0.57 

9 

1.2(-37) 

1.5(-37) 

0.80 

13 

6.0(-38) 

5.9(-38) 

1.0 

17 

3.6(-38) 

2.9(-38) 

1.2 

21 

2.3(-38) 

1.7(-38) 

1.4 

25 

1.7(-38) 

l.l(-38) 

1.6 

29 

1.2(-38) 

7.2(-39) 

1.7 

TABLE  5.  Bremsstrahlung  emissivity  coefficients  for  free-free  in  the  field  of  a  neutral  at  an  electron 
temperature  r«=25000  K. 


X 

Chun  Lin 

EGG-22 

Ratio 

1 

2.4(-35) 

2.3(-35) 

1.0 

5 

1.3(-36) 

4.9(-37) 

2.7 

9 

4.0(-37) 

l.l(-37) 

3.6 

13 

1.9(-37) 

4.0(-38) 

4.8 

17 

l.l(-37) 

1.9(-38) 

5.8 

21 

7.3(-38) 

l.l(-38) 

6.6 

25 

5.2(-38) 

7.0(-39) 

7.4 

29 

3.8(-38) 

4.7(-39) 

8.1 

TABLE  6.  Bremsstrahlung  emissivity  coefficients  for  free-free  in  the  field  of  a  neutral  at  an 
electron  temperature  7’e=50000  K. 


X 

Chun  Lin 

EGG-22 

Ratio 

1 

5.2(-35) 

1.8(-35) 

2.9 

5 

2.4(-36) 

3.7(-37) 

6.5 

9 

7.6(-37) 

7.8(-38) 

9.7 

13 

3.7(-37) 

2.9(-38) 

12 

17 

2.1(-37) 

1.4(-38) 

15 

21 

1.4(-37) 

8.0(-39) 

18 

25 

9.9(-38) 

5.0(-39) 

20 

29 

7.4(-38) 

3.4(-39) 

22 

18 
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Figure  8.  Comparison  of  EGG-22  and  theoretical  emissivily  coefficients  for  free-free  transitions  in  the 
field  of  a  neutral  oxygen  atom. 
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Figure  9.  Comparison  of  theoretical  and  empirical  emissivity  coefficients  for  free-free  transitions  in  the 
field  of  a  neutral  oxygen  atom.  All  values  are  for  an  electron  temperature  of  10000  K.  All  values  are 
relative  Lin’s  emissivity  coefficient  at  2pm. 

6.  APOSTLE  LINE  BROADENING  MODEL 
A.  Theory 

A  foundational  work  of  pressure  broadening  of  spectral  lines  was  produced  by  Anderson”  in 
1949.  Early  treatments  of  pressure  broadening  assumed  that  collisions  are  adiabatic,®®’®^’®^  i.e.,  no 
energy  transfer  takes  place  during  a  collision.  The  adiabatic  assumption  is  usually  applicable  in 
the  optical  regime  because  energy  transfer  in  an  electron-atom  collision  is  insufficient  to  induce 
such  transitions.  Anderson”  included  inelastic  collisions  and,  thus,  the  applicability  of  his  theory 
can  be  extended  to  the  microwave  and  infrared  regions.  By  assuming  that  the  colliding  neutral 
particles  follow  classical  paths,  the  line  width  and  shift  can  be  described  in  terms  of  a  semi- 
classical  scattering  operator.  The  scattering  operator  matrix  is  then  evaluated  using  a  second-order 
expansion  approximation.  "■”’^®’”’  These  methods  were  further  developed  by  Tsao  and  Cumutte''® 
and  Kolb  and  Giiem'*’. 

Most  collisional-Stark  broadening  calculations^’’^^^’^®  are  performed  using  extensions  of  the 
classical  path  impact  theory  developed  by  Anderson”  for  self-broadening  of  neutral  emitters.  The 
theory  has  been  adapted  and  extended  to  a  radiating  plasma  by  Griem,  Baranger,  Sahal-Brechot, 
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and  Cooper  and  their  co-workers. The  theory  of  collisional  broadening’®  "  encompasses 
two  limiting  cases:  (1)  the  impact  approximation  based  on  instantaneous  colhsions  where  the 
collision  is  short  in  comparison  to  the  time  between  collisions,  and  (2)  the  quasi-static 
approximation  based  on  slowly  moving  perturbers.  For  a  plasma,  the  impact  approximation 
describes  electron  impact  on  the  radiating  atom  and  the  quasi-static  approximation  describes  the 
ion-radiator  collision  effects.  The  quasi-static  approximation  is  used  to  statistically  represent  ion- 
collisional  influences  as  external  electric  fields  (microfields).  The  ion-produced  microfields  vary  so 
slowly  that  their  time-dependence  can  be  neglected.  In  this  case,  the  calculation  reduces  to  that  of 
the  static  Stark  effect,  taking  into  account  the  statistical  distribution  of  the  electric  fields  at  the 
radiator.  In  plasmas  with  atoms  excited  to  sufficiently  high  n  states,  the  sihall  energy  differences 
between  perturbing  levels  become  comparable  to  the  line  widths  (overlapping  lines)  and  the  quasi¬ 
static  line  splitting  is  significant.^  For  lower-lying  Rydberg  levels  whose  components  of  different 
orbital  angular  momentum  are  well-separated  in  energy  (isolated  lines),  the  line  broadening  is 
caused  mainly  by  collisions  with  electrons.  There  is  an  increase  in  the  electron-impact  width  with 
increasing  n  and  /  of  the  upper  state  for  lines  belonging  to  a  spectral  series.*  In  many  plasmas  the 
electric  fields  produced  by  electrons  colliding  with  the  radiators  vary  so  rapidly  (i.e.,  collisions  are 
short  in  duration)  that  the  corresponding  line  widths  and  shifts  depend  only  on  net  changes  in  the 
radiator  states. 

The  determination  of  collisionally  broadened’®’"  Imewidths  is  divided  into  the  effects  of  low- 
frequency  perturbers  (ions)  using  the  quasi-static  approximation  and  of  the  high  frequency 
perturbers  (electrons)  using  the  impact  approximation.  To  develop  a  “fast”  computational  model 
of  line  broadening  over  a  large  spectral  range,  we  use  the  approximations  of  Anderson*’  for 
electron  collisional  effects  and  the  model  of  Hooper**  for  ion  collisional  effects.  The 
approximation  criteria  are  examined  in  detail  as  some  spectral  features  fell  outside  the  limits  of 
model  validity.  Such  cases  are  flagged  as  inappropriate  estimates. 

Ion  Collisional  Broadening 

The  quasi-static  approximation  is  valid  if  the  splitting  caused  by  the  perturber  field,  4co,  is  large 
compared  to  the  inverse  of  the  duration  of  the  collision,  1/t^,  or 

Aco»  —  «  — 

T„  b„ 


(9) 


where  Up  is  the  velocity  of  the  perturber  and  bp  is  its  characteristic  impact  parameter.  For  long 
range  Coulomb  interactions,  bp  is  limited  by  plasma  shielding  effects  and  cim  be  approximated  by 
the  Debye  length,  yl©. 

The  use  of  the  quasi-static  approximation  for  the  ions  is  equivalent  to  representing  the  ions  by  a 
normalized  distribution  function,  P(£),  of  static  electric  fields,  E.  P{E)  depends  on  the  ion  mass, 
density,  and  temperature.  By  adopting  this  physical  picture  for  the  ions,  the  standard  quantum 
mechanical  theory  for  Stark  efifect  is  appUcable. 

The  Stark  effect  is  described  by  the  Stark  Hamiltonian,  which  is  the  product  of  the  electric 
dipole  moment,  er,  and  the  electric  field,  E.  The  selection  rules  for  electric  dipole  induced 
transitions  are  Ay=0,  A/=+l,-l,  Awi=+1,0,-1.  The  presence  of  the  Stark  field  has  two  effects. 
First,  the  energy  levels  of  the  mi  magnetic  substates  are  shifted,  i.e.,  their  degeneracy  is  lifted.  For 
all  atoms  except  hydrogen,  the  amount  of  energy  shift  is  proportional  to  the  square  of  w/. 
Therefore,  the  line  shifting  is  not  symmetric  about  the  unperturbed  line.  Second,  lines  forbidden  by 
the  electric  dipole  selection  rules  become  allowed  due  to  the  mixing  of  states.  The  presence  of  an 
electric  field  results  in  spectra  with  split  and  broadened  lines.  The  Stark  shifted  line  positions,  Og,, 
and  corresponding  perturbed  wave  functions  are  determined  by  diagonalization  of  the  Stark 
Ifamiltonian.  The  electric  dipole  transition  moments  are  calculated  using  the  resulting  wave 
functions  and  energies.  After  calculating  the  energy  levels  and  wave  functions  for  a  particular 
field,  the  Einstein  coefficients  are  calculated  according  to:'^® 

where  h  is  Planck’s  constant,  the  transition  fi-equency  is  in  wavenumbers. 

The  basis  set  for  the  Stark  Hamiltonian  matrix  assumes  L-S  coupling  and  is  defined  by  the  spin, 
s,  the  principal  number,  n,  the  orbital  angular  momentum,  /,  and  the  magnetic  quantum  number,  mi. 
The  diagonal  matrix  elements  of  the  Hamiltonian  are  the  unperturbed  energy  levels  for  oxygen 
atom,  the  majority  of  which  have  been  documented  by  Moore^°.  States  not  listed  in  Moore  are 
calculated  using  the  polarization  formulas  in  Edlen^’  and  the  polarizabiUty  constants  in  Isberg“. 
The  formulas  are  based  on  the  theory  of  Bom  and  Heisenberg”  and  of  Waller^,  who  modifies  the 
hydrogenic  term  formula  for  the  interaction  of  the  valence  electron  with  the  core  electrons.  The 
off-diagonal  elements  of  the  Stark  Hamiltonian  matrix  are  calculated  by  multiplying  the  dipole 
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moment  matrix  elements’  by  the  ion-induced  field.  The  radial  part  of  the  dipole  moment  matrix 
element  is  obtained  firom  the  calculations  of  Chung  et  al^  and  Lin.^^  Thesexalculations  employ  a 
frozen  core  representation  of  the  oxygen  wave  functions.  For  transitions  higher  than  h-g,  the  radial 
matrix  elements  are  calculated  from  the  tables  in  Oertel  and  Shomo^®,  which  are  extensions  of  the 
Coulomb  approximation  calculations  of  Bates  and  Damgaard.^^  The  signs  of  these  matrix  elements 
may  differ  from  those  of  Lin®’  depending  on  whether  n’-  n"  is  even  or  odd  because  of  a  difference  in 
the  phase  definition  in  the  wave  functions.  Formulas  for  the  angular  component,  consisting  of 
direction  cosine  matrix  elements,  are  based  on  the  standard  approach  given  by  Condon  and 
Shortley.'*^ 

The  ion-induced  field  in  the  Stark  Hamiltonian  is  given  by  Holtsmark®*  to  be  l.SeN^^.  Since 
the  temporal  dependence  of  the  ion  field  is  difficult  to  characterize  experimentally  or  theoreticaUy, 
the  accepted  approach  is  to  statistically  simulate  the  effect  of  the  quasi-static  ions  by  a  plasma 
microfield  distribution.  Using  this  approach,  a  microfield  distribution  has  been  calculated  by 
Baranger  and  Mozer.®^  Hooper®*  further  refined  the  theory  by  including  correlation  among  all 
perturbers  and  allowing  independent  input  for  plasma  density  and  ion  and  electron  temperature. 
The  microfield  distribution  used  in  the  present  model  is  based  on  Hooper's  approach  for  the  case  of 
a  low  frequency  electric  microfield  distribution  at  a  neutral  point. 

2.  Electron  impact  Broadening 

Most  theories  on  electron  impact  broadening  are  based  on  three  assumptions:  the  classical  path, 
impact,  and  binary  assumptions.  The  classical  path  approximation  assumes  that  the  perturber  path 
is  straight  for  neutral  radiators  and  hyperbolic  for  charged  radiators.  The  impact  approximation 
assumes  that  the  duration  of  the  colhsion  is  short  compared  to  the  time  between  collisions.  The 
binary  approximation  assumes  that  a  collision  involves  two  species:  the  radiator  and  one  perturber. 
These  approximations  allow  one  to  express  the  interaction  of  the  electron  perturber  and  the  neutral 
emitter  as  a  definite  function  of  time,  The  classical  path  approximation  is  particularly  usefiil 

in  treating  Stark  broadening  of  spectral  lines  emitted  in  plasmas  because  the  interparticle  forces  are 
long  range  Coulomb  forces  and  the  broadening  is  dominated  by  many  weak  collisions.  The  impact 
approximation  can  be  invoked  if  the  duration  of  a  perturbing  collision,  Xp,  is  much  shorter  than  the 
time  between  perturbing  collisions,  Xb,  is  small  compared  to  the  time  between  collisions.  The 
duration  of  the  collision  can  be  approximated  by  dividing  the  largest  impact  parameter  for 
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producing  an  emission  disturbance,  bp,  by  the  average  perturber  velocity,  Up.  Therefore,  the  impact 
approximation  can  be  used  when 


T 


P 


1 

Nupi^l 


(11) 


This  is  essentially  identical  with  the  criterion  for  the  binary  collision  approximation; 


-7jblN.«l  (12) 

2  P  P 

The  impact  approximation  also  implies  the  opposite  of  the  criterion  of  the  quasi-static  approxima¬ 
tion^,  that  is 


A 

Aco«  — 


(13) 


where  A©  defines  the  region  around  the  line  center  that  can  be  confidently  modeled  under  impact 
approximation  theory.  The  largest  possible  impact  parameter  for  a  perturbing  collision  is  limited 

by  the  Debye  length,  Xd-  For  electrons  as  perturbers  with  average  velocity,  u  =  (8^7;  /  ^ , 

equation  (13)  can  be  reduced  to  A®  <  co^where  (Upe  is  the  electron  plasma  frequency. 

Anderson^^  states  that  the  impact  approximation  is  equivalent  to  assuming  that  all  emission 
lines  are  either  well  resolved  or  not  at  all  resolved  when  compared  to  the  linewidth,  i.e.,  degenerate 
levels.  This  simplification  was  removed  by  Kolb'^’  who  generalized  Anderson’s  method  to  include 
overlapping  lines.  We  return  to  Anderson’s  theory  for  reason  of  model  efficiency.  The  comparison 
of  the  calculations  with  those  using  more  complex  theory  and  with  experimental  data  will  test  the 
success  of  the  approximations  used. 

Under  the  impact  approximation,  the  spectral  distribution  of  a  single  transition  is  Lorentzian 


Z(S-Q),y)  = 


S&ij/n 

(5-Sj,.-A5)j,)^+5S/ 


(14) 
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where  SSy  is  the  half  width  at  half  the  maximum  line  intensity  and  AS,y  is  the  line  shift  due  to 

electron  impact.  Once  the  electron  collisional  broadening  width  and  shift  are  determined  then 
equation  (14)  can  be  used  to  construct  the  total  line  emission  spectrum  through  summation  over  all 
electric  dipole  allowed  transitions. 

The  line  broadening  cross  section,  Oj,  and  line  shift  cross  section,  Os,  for  an  electron-radiator 
colUsion  are  related  to  the  linewidth  and  lineshift  by 


Aay  = 


(15) 

(16) 


The  cross  sections  are  calculated  from  Anderson’s^^  equation  (52) 


O’  =  CTt  +ia^  =  1 27iS(b)db  (17) 

0 

where  b  is  the  impact  parameter  and  S{b)  may  be  interpreted  as  the  probabiUty  of  an  electron 
colhsion  disturbing  the  emission  of  radiation.  S(b)  is  written  in  terms  of  the  time-development 
matrix,  T(f),  which  is  approximated  by^’ 
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(18) 


where  t  is  time  and  Hi  is  the  interaction  Hamiltonian.  Additionally,  the  classical  path,  impact  and 
binary  approximations  greatly  simplify  the  Hamiltonian  describing  the  interaction  of  the  perturber 
and  emitter.  The  interaction  Hamiltonian  for  the  electron-neutral  interaction  is; 


ir 


—  Irr  +r 

c' a  ~ 'a 


(19) 


where  the  distances  from  the  0"^  nucleus  to  the  perturbing  and  emitting  electron  are,  respectively, 
and  Va  The  first  term  is  the  Coulomb  attraction  between  the  perturbing  electron  and  the  oxygen 
nucleus  and  the  second  term  is  the  Coulomb  repulsion  between  the  perturbing  electron  and  the 
emitting  electron. 

Expanding  the  second  term  in  equation  (19)  in  and  retaming  the  first  order  terms,  one 

obtains  the  point-dipole  charge  interaction  Hamiltonian 


H^=e'^cosy^-  (20) 

rc 

with  y  as  the  angle  between  vectors  rc  and  ra.  To  express  the  interaction  Hamiltonian  in  spherical 
coordinates  (r,0,(t)),  we  choose  the  electron-atom  collision  to  occur  in  a  plane  with  <t)c  =  0  and  define 
the  relationship  of  collision  parameters  to  and  0c  by  invoking  the  classical  path  approximation 
through 

COS0C  =ut  Ir^ 

smd^=blr^  (21) 

r/  +mV 

where  u  is  average  electron  velocity,  t  is  time,  b  is  the  impact  parameter.  By  substituting  the 
relations  in  equation  (21)  into  equation  (20)  through 

cosy  =  cos0^  cos0^  +sin0^  sin0^  cos((^»a  -  (22) 


the  Hamiltonian  becomes 


H,  =^{X,,ut  +  X^b) 


(23) 


where  =  cos0^  and  X^  =  sin0^  cos^^  are  direction  cosines  of  the  emitting  electron.  To 
obtain  a  tractable  expression  for  T(t)  of  equation  (18),  it  is  expanded  in  terms  of  powers  of  a 
matrix,  P, 
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(24) 


-00 

The  expression  for  S(b)  is  then  written  in  terms  of  powers  of  the  matrix  P  which  result  from  the 
expansion  of  r(0: 

Sib)  =  So+S^+S^+...  (25) 

So  is  zero  for  all  situations.^^  As  stated  in  Anderson^’,  the  first-order  term.  Si  is  imaginary  and, 
thus  the  first  “shift”  term  of  the  expansion.  For  the  present  problem  Si  is  also  zero  as  it  depends 
on  the  interaction  matrix  elements  that  are  zero  due  to  symmetry  (Anderson's  equation”  (546)).  Sz 
has  two  types  of  second-order  terms  and  are  named  in  Anderson”  as  {Sz^middu  and  {S^^outer 
(Anderson's  equations”  (54c',c")).  {Sifmiddie  is  zero  for  the  same  reason  as  Si.  The  only  non-zero 
term  in  the  second-order  approximation  is  {S-^outer  ■  S{b)  is  subsequently  expressed  as 


5(6)«5,(6)  =  i 


r  2/,.+l  ^  2/,+l 


m. 


(26) 


where  |z)  =  |«,/,)  and  |/)  =  are  the  initial  and  final  states.  This  term  gives  the  probability 

of  a  transition  being  caused  by  a  collision  averaged  over  the  initial  and  final  states.  The  line  shift 
cross  section  is  zero  for  the  second-order  approximation.  The  P-matrix  element  is  given  by 


(o  |P|6)  =  ^  Jexp(/co^0(«i^i  it)\b)dt 


(27) 


where  is  the  transition  frequency.  The  states  {a\  =  {nlm\  and  |6)  =  \n'rm')  are  the  wave 

functions  of  the  radiator  with  the  primed  states  being  the  perturbing  states.  With  H}  given  by 
equation  (23),  the  P-matrix  element  becomes 
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{a\P\b)  = 


Ane 


‘eutsm{a)^t)dt 


,M  f  bcos{03^t)dt 


(28) 


where  ={a\rgXj\b),  ={a\r^Xj\b)  and  A's  are  the  direction  cosines.  The  computation 

of  the  P  matrix  element  requires  solution  to  the  time  integrals.  To  account  for  correlation  effects 
between  electrons  that  shield  the  perturbing  electron's  electric  field,  a  cutoff  in  the  scattering 
integration  over  impact  parameter  is  applied  at  the  Debye  length,  Xd-  The  introduction  of  a 
collision  operator  cutoff  sets  the  upper  integration  limit,  to,  at 

P9) 

V 

Once  the  matrix  element  of  P  for  a  particular  impact  parameter  is  calculated,  then  S{b)  is 
obtained  through  equation  (26).  Because  S{b)  diverges  at  small  b  values,  a  strong-collision  cutoff 
(iron)  is  applied  to  suppress  the  divergence  in  the  integration.*’®^^  A  Lorentz-Weisskopf  type  term 
is  used  to  approximate  the  contribution  of  strong  collisions  to  the  broadening  cross  section  by 
assuming  that  the  phase  shifts  and  inelastic  effects  produced  by  the  electron-atom  colUsions  are  so 
large  that  the  scattering  operator  matrix  elements  either  oscillate  rapidly  between  +1  and  -1  or 
approach  0.  The  maximum  impact  parameter,  bmax,  outside  which  Sib)  is  taken  as  zero,  is 
determined  by  Debye  shielding  as  mentioned  earlier.  Although  Gnem*'  and  Chappell  et  al.  argue 
that  the  maximum  impact  parameter  should  be  1.123  Xd  and  0.682  Xd  respectively,  little 
difference  was  observed  in  the  calculated  spectra  when  these  values  were  used.  The  maximum 
impact  parameter  use  here  is  l.O  Xd  ■  Only  small  errors  are  introduced  into  line  width  calculations 
by  die  above  second-order  expansion  and  impact  parameter  cutoff  procedures. 

3.  Additional  Approximations 

The  time  integral  (eq.  (28))  is  solved  numerically  using  a  weighted  trapezoidal  routine.  Because 
the  numerical  solution  to  the  integrals  is  time  consuming,  an  approximate  analytic  solution  is 
obtained  by  allowing  fo  to  go  to  infinity.  The  integral  can  then  be  expressed  analytically  in  terms 
of  modified  Bessel  fimctions  of  integer  order. 
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The  computational  demands  of  spectral  models  have  motivated  the  need  for  greater  levels  of 
approximation.  Along  with  the  above  theoretical  and  numerical  approximations,  we  have  included 
the  options  to  make  the  following  additional  approximations  in  calculating  the  spectral  line  widths: 
one  may  choose  to  use  (1)  unperturbed  wave  functions  and  energy  levels,  (2)  ion-perturbed  energy 
levels  only,  or  (3)  ion-perturbed  wave  functions  and  energy  levels.  These  three  approximation 
levels  are  termed  the  unperturbed,  semi-perturbed,  and  perturbed  cases,  respectively.  If  the  wave 
functions  and  energies  are  not  perturbed  significantly  by  the  ions,  then  the  calculations  of  electron 
broadened  line  widths  can  be  simplified  by  usmg  the  unperturbed  wave  functions  and  energies.  For 
the  unperturbed  case,  the  calculations  are  performed  for  transitions  between  two  n,  I  states  with  no 
ion  collisional  effects  incorporated  into  the  solution.  For  the  semi-perturbed  and  perturbed  cases, 
the  calculation  of  S{b)  is  performed  for  transitions  between  two  n,  I,  m  states.  The  siunmation  over 
mi  and  division  by  2/,+l  in  equation  (26)  are  omitted  since  the  magnetic  substates  are  treated 
explicitly.  These  approximations  are  only  justified  by  comparison  to  data  and  pubhshed  linewidth 
calculations. 

The  levels  of  approximation,  perturbed,  semi-perturbed  and  unperturbed  were  examined  for 
computational  efficiency  and  degrading  effects.  Computational  efficiency  depends  on  the  number 
of  microfield  intervals,  number  of  basis  states,  and  the  number  of  lines  in  a  spectral  range. 
However,  the  unperturbed  calculations  are  about  a  fector  of  10  fester  than  the  semi-perturbed 
calculations.  The  fully  perturbed  calculations  are  fi-om  10  to  >1000  times  slower  than  the  semi- 
perturbed  calculations.  From  performing  many  unperturbed  and  semi-perturbed  calculations,  it  is 
found  that  the  unperturbed  lines  are  sometimes  30%  narrower  than  lines  from  semi-perturbed 
calculations.  A  fully  perturbed  calculation  and  a  semi-perturbed  calculation  over  the  spectral 
range  3.5pm  to  8pm  showed  very  Uttle  difference  in  the  structure.  The  semi-perturbed  calculations 
were  used  in  the  comparisons  presented  below. 

B.  APOSTLE  Model 

The  APOSTLE  model  was  designed  for  computational  efficiency  to  provide  calculated  spectra 
over  large  spectral  ranges.  APOSTLE  consists  of  three  modules,  executed  sequentially:  mfd, 
stark,  and  linshape.  The  objective  of  APOSTLE  is  to  predict  the  characteristic  nature  of  a 
collisionally  broadened  spectra  arising  from  a  laser  induced  plasma. 

In  essence,  the  approach  of  the  APOSTLE  model  lies  in  the  determination  of  the  spectral 
Radiance  (Wcm'^sf ’(cm'*)"’)  of  a  coUisional-Stark  broadened  line: 
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7(5  -  atij)  =  NjAijEijLia  -  Sy) 


(30) 


where  Ag  is  the  Einstein  coefficient,  Eij  is  the  energy  of  the  transition  and  L(a  -  a  g)  is  given  by 
equation  (14).  The  upper  state  population,  Ni  is  given  by: 


N,= 


(31) 


Figure  10  shows  the  modular  design  of  APOSTLE.  The  first  module  performs  the  task  of 
computing  the  ion  microfield  probability  distribution.  This  code  is  executed  first  for  which  its 
output  used  as  the  input  for  the  second  module,  stark.  Stark  is  the  main  module  responsible  for 
computing  the  line  positions,  Einstein  coefficients,  state  populations,  and  spectral  distribution  half¬ 
widths.  The  output 


Figure  10.  Modular  design  of  the  APOSTLE  model. 

of  stark  is  then  used  in  the  third  module,  linshape,  which  constructs  the  spectrum  according  to 
equation  (30),  then  convolves  the  spectrum  with  a  user  specified  instrumental  line  shape. 

The  first  code  in  the  APOSTLE  suite,  mfd,  is  used  to  calculate  the  Stark  effect  on  the  oxygen 
Rydberg  lines  induced  by  the  presence  of  ionic  species.  The  computer  code  was  written  by  C.  F. 
Hooper^  and  it  is  used  in  the  APOSTLE  model  in  unmodified  form.  The  only  documentation 
available  exists  in  the  form  of  comments  in  the  FORTRAN  source  code.  The  physical  basis  for  the 
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code  has  been  published  by  Hooper.**  The  output  of  mfd  is  a  set  of  weighted  electric  field  strengths 
with  the  corresponding  probabilities  of  producing  these  field  strengths.  -  This  output  file,  a 
graphical  example  of  which  is  given  in  Figure  11,  is  used  as  an  input  file  for  the  spectral-line- 
broadening  code  stark. 


Figure  11.  The  APOSTLE  calculated  electric  field  probability  distribution  for  ion-collisional  broadening. 

The  effect  of  collisional-Stark  broadening  of  the  oxygen  Rydberg  spectral  lines,  by  both  ion  and 
electron  perturbers  is  calculated  in  stark.  Figure  12  illustrates  the  block  structure  of  the 
APOSTLE  stark  module.  The  stark  module  fimction  is  to  calculate  line  positions,  Einstein 
coefficients,  state  populations,  and  spectral  line  widths.  The  calculation  is  performed  iteratively 
over  the  ion  microfield  distribution  according  to  the  basis  set,  microfield,  spectral  range,  and 
parameters  provided.  State  populations  are  calculated  internally  using  to  eq  (24)  according  to  the 
electronic  temperature  or  will  also  accept  populations  calculated  independently. 

Figure  13  is  a  plot  of  gA  with  A  (product  of  file  Einsten  coefficient  and  upper  state  degeneracy) 
under  unperturbed,  zero-field  conditions  from  2-30  pm.  These  values  are  tabulated  in  Appendix  C. 
The  figure  shows  a  general  tendency  of  decreasing  values  of  gA  with  A  with  gA  varying  over  more 
than  four  orders  of  magnitude.  However,  five  prominent  groups  of  transitions  can  be  readily 
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Figure  12,  Block  structure  of  the  APOSTLE  stark  module. 
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Figure  13.  Plot  of  gA  as  fimction  of  X  as  predicted  by  the  APOSTLE  model  in  the  absence  of  collisional- 
Stark  broadening. 


Figure  14.  Block  structure  of  the  APOSTLE  linshape  module. 
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observed  in  the  plot:  4.04  pm,  7.45  pm,  12.35pm,  19.0  pm,  and  27.8  pm.  The  line  position, 
Einstein  coefficients,  upper  state  populations,  and  electron-broadened  half-widths  define  the  output 
of  which  is  used  in  the  third  APOSTLE  module,  linshape. 

The  third  module  in  the  APOSTLE  model,  linshape,  performs  the  construction  of  the 
instrumentally  convolved  spectrum  fi-om  the  hne-by-line  broadening  information  fi-om  stark.  This 
is  accomplished  in  two  steps:  first,  the  Lorentzian  spectral  distribution  is  constructed  for  each 
transition  fi'om  the  line  positions,  Einstein  coefficients,  upper  state  populations,  and  spectral  half¬ 
widths  for  each  transition.  Second,  the  spectrum  is  then  convolved  with  an  instrumental  line  shape 
(ILS)  function  which  is  user  flexible  and  computed  internally.  Figure  14  illustrates  the  structure  of 
linshape. 

The  total  spectral  radiance  of  the  spectrum  is  obtained  from  the  sumination  of  eq  (23)  over  all 
transitions.  In  wavelength  space  (Wcm'^sr‘’pm'’)  this  is  equal  to, 

'''  ij 


From  this,  the  unconvolved  spectrum  is  convolved  with  the  ILS  function,/("A/- 

l\X)  =  \l{X)f{X-X')dX'  (33) 

Presently,  options  available  include  a  function  for  a  SPEX  Industries  model  1870  grating 
monochromator,  EXCEDEIII  CVF4  (circularly  variable  filter)  spectrometer,  and  two  general 
purpose  ILS  functions  (triangular  and  rectangular)  requiring  user  input  resolution.  Figure  15 
illustrates  a  typical  situation  of  the  convolution  of  an  unconvolved  Lorentz  distribution  with  the 
SPEX  ILS  function.  In  this  figure,  the  ILS  is  characterized  by  a  fwhm  of -0.032  pm. 


34 


Relative  Spectral  Radiance 


Unconvolved  Lorenlz  Distribution 
Instrunnent  Convolved  Distribution 
Instrumentol  Line  Shape 


Wavelength  (/^m) 


Figure  15.  Example  of  the  effect  convolution  of  triangular  instrumental  line  shape  with  a  collisional-Stark 
broadened  line. 
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7.  APOSTLE  MODEL  VS.  DATA 
A.  Collisionally  Dominated  Plasma 

The  line  emission  model  provides  a  spectral  prediction  to  the  laser-produced  oxygen  plasma  IR 
spectrum  in  Chapter  4.  The  results  of  the  fitting  procedure  are  shown  in  figure  3.  For  the  fitting 
procedure  the  parameter  space  (7^,  T^j,  Ne)  of  the  line  model  was  explored.  The  basis  set  consisted 
of  62  states  (31  triplets  and  31  quintets)  with  the  highest  principal  quantum  number,  «=8.  The 
plasma  density  was  varied  between  2xl0’^  cm'^  to  2x10'®  cm■^  and  electron  and  electronic 
temperature  parameters  were  varied  between  5000K  to  50,000K  in  5000K  intervals,  and  5000K  to 
20,000K  in  5000K  intervals,  respectively.  The  spectral  calculations  have  been  done  with  the  semi- 
perturbed  approximation  of  the  model  due  to  the  computational  demands  of  a  fully  perturbed 
calculation.  A  fully  perturbed  calculation  was  performed  for  a  single  set  of  parameters  and 
compared  to  a  semi-perturbed  calculation  at  the  same  values.  The  results  showed  very  little 
difference  over  the  broad  spectral  range  that  was  compared  (3  pm  <  X  <  12nm). 

The  model  was  fit  to  the  data  using  the  empirically  derived  electronic  temperature  and  atomic 
oxygen  density.  Using  these  values,  an  absolute  Boltzmann  state  population  distribution  was 
generated.  Stark  broadening  is  relatively  insensitive  to  electron  temperature'"*  but  there  are  slight 
variations  in  shapes  of  some  features.  The  fitting  procedure  was  the  variation  of  the  electron 
density  to  give  the  best  model-data  agreement  in  the  line  widths  of  the  4p®P-3d®D  (5.976  pm)  and 
the  5d®D-5p®P  (5.6847  pm)  transitions.  This  resulted  in  an  estimated  electron  density  of  8xl0'® 
cm'^. 

In  general,  the  agreement  between  model  and  data  is  good,  although  the  model  is  excessively 
broadened  for  the  7.45  and  12.35  pm  emission  features.  Integrated  band  intensities  over  three 
spectral  bands  were  calculated  to  investigate  the  discrepancy  of  the  model  prediction  at  7.45  and 
12.35  pm.  Table  7  lists  the  calculated  integrated  intensities  for  model  and  data. 


TABLE  7.  Model  vs.  Data  comparison  of  band  integrated  intensities. 


Wavelength  Band  (pm) 

Data  (Wcm'^  Sf') 

APOSTLE(Wcm-^  Sf') 

3.8-4.3 

4x10"* 

3x10"* 

6.9-8.0 

1x10"* 

9x10® 

10.8-12.35 

2x10'® 

IxlO'® 
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Comparing  the  values  in  the  first  and  second  bands,  the  model  prediction  and  experiment  are  in 
good  agreement,  thus  suggesting  only  a  line  shape  mismatch  at  7.45  pm.  hi  third  wavelength  band, 
it  is  possible  that  the  discrepancy  observed  may  be  due  in  part  to  the  poor  detector  responsivity 
beyond  12.5|jm.  The  disagreement  of  model  and  measurement  for  7.45|jm  and  12.35|xm  features 
may  be  partly  due  to  the  fact  that  these  features  consist  of  strongly  overlapping  lines.  The  present 
model  assumes  that  the  lineshape  for  overlapping  lines  is  the  sum  of  the  individual  transition 
spectral  distributions.  Interference  effects  from  overlapping  lines  may  narrow  the  linewidth.  To 
obtain  a  better  agreement  for  multiplet  lineshape,  it  is  necessary  to  use  the  more  complex 
expression  for  the  lineshape  of  overlapping  lines."*’ 

Additionally,  the  plasma  conditions  may  not  be  sufficiently  described  by  Saha  equilibrium.  An 
examination  of  the  constants  of  thermal  equilibration  suggests  that  equilibrimn  conditions  between 
electron  kinetic  and  other  temperatures  do  not  exist  at  early  times  within  laser  induced  plasma 
emission  region.  The  initial  energy  deposition  of  the  laser  beam  into  the  focal  region  dissociates, 
fully  ionizes  and  multiply  ionizes  the  oxygen  gas.  Excess  energy  elevates  the  electron  temperature. 
The  ions  quickly  heat  up  and  the  plasma  begins  an  expansion  from  the  deposition  region. 
Chemical  kinetics  calculations'*^  indicate  that  recombination  rapidly  changes  the  gas  from  a  fully 
ionized  to  partially  ionized  plasma  within  3x10’’  s.  At  10  ®  s,  the  ions  should  be  in  approximate 
equilibrium  with  the  now  dominant  neutral  O  atoms  due  to  the  fest  ion-neutral  thermal  transfer 
time  constant  (10'*“  s).  The  equilibration  time  between  the  light  electrons  and  heavy  particles  is 
significantly  longer  (about  6x10"®  s).  Thus,  the  species  kinetic  temperatures  may  not  be  equal  at 
the  measurement  time.  This  result  is  observed  in  modeling  of  a  laser  induced  plasma  done  by 
MUroyetal.  (1979)®l 

Finally,  it  is  worthwhile  to  examine  the  uncertainties  in  the  calculations  of  the  spectral 
emissions.  The  uncertainty  in  the  plasma  parameters  is  harder  to  quantify.  Uncertainty  in  the 
electron  density  and  temperature  determinations  is  estimated  to  be  from  30%  to  50%  based  on 
changes  in  the  spectra  as  the  plasma  parameters  are  varied.  In  addition,  the  model  calculation  is 
for  spatially  homogeneous  conditions.  The  line-of-sight  integration  of  the  laser-induced  plasma  is 
most  certainly  not  homogeneous.  Given  these  imcertainties,  the  comparison  of  model  with 
experiment  is  satisfactory. 
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B.  ARCHON  Chemical  Kinetics  Modelling 

At  this  juncture,  the  possibility  of  non-thermal  state  populations  can  nowTje  investigated.  This 
investigation  was  carried  out  with  the  use  of  the  ARCHON  chemical  kinetics  model.  The  reaction 
set  model,  along  with  rate  coefficients  is  listed  in  Table  8. 


TABLE  8.  ARCHON  reaction  set  model. 


Reaction _ 

0^  +  e  +  e->0^  +  e 
O^  +  e-^O^^  +  e 
O^^  +  e^O^^  +  e 
O'^  +  e  +  e  0^^  +  e 
0^^  +  e->0^  +  e 
O^^  +  e-^O^  +  e 
O^^  +  e  +  e-^O^^  +  e 
O^^  +  e^O^^  +  e 
O^^  +  e-^O^^  +  e 
O^"^  +  e  +  e^O^  +  e 
0^^  +  e^0*  +  e 
0^^  +  e-»  O'^  +  e 
0^+e  +  e-^  0  +  e 
0  +  e->0*  +  e  +  e 


0^ 

+ 

e-^ 

q2* 

+ 

e 

+ 

e 

0"^ 

+ 

e 

0^ 

+ 

e 

+ 

e 

+ 

e 

+ 

e 

+ 

e 

0"" 

+ 

6  — ^ 

0^ 

+ 

e 

+ 

e 

0+  +  e  0(«=11,/) 
0(«i>A)  —> 


Process  Type 

a 

b 

c 

three-body 

8.7x10-'* 

-4.5 

0 

dielectronic 

1.7x10-'° 

-1.5 

5.6 

radiative 

2.2x10-° . 

-0.7 

0 

three-body 

4.5x10-'* 

-4.5 

0 

dielectronic 

1.1x10'° 

-1.5 

5.6 

radiative 

8.9x10-'° 

-0.7 

0 

three-body 

1.9x10'* 

-4.5 

0 

dielectronic 

6.2x10" 

-1.5 

5.6 

radiative 

2.8x10" 

-0.7 

0 

three-body 

5.6x10-'° 

-4.5 

0 

dielectronic 

2.8x10-" 

-1.5 

5.6 

radiative 

5.6x10-" 

-0.7 

0 

three-body 

7.4x10-^ 

-4.5 

0 

re-ionization 

3.9x10'^ 

1.5 

162 

re-ionization 

1.2x10'* 

1.5 

400 

re-ionization 

bo 

0 

1.5 

640 

re-ionization 

4.7x10-'* 

1.5 

890 

re-ionization 

1.3x10'* 

1.5 

1300 

recombination 

lxlO-'*/g, 

-1.5 

5.6 

radiative  cascade 


The  details  of  the  calculation  are  discussed  in  the  Infrared  Emissions  Final  Report.^^  However 
only  the  pertinent  details  will  be  discussed  here.  It  is  to  be  noted  here  that  the  present  calculation  is 
preliminary  The  reaction  set  does  not  include  oxygen  atom  impact  excitation  or  quenching 
reactions.  Collision  cross  sections  for  the  former  are  at  present  unavailable.  The  model  was 
chosen  only  to  illustrate  the  effect  of  electron  recombination  with  singly-ionized  oxygen  on  the  IR 
plasma  spectrum,  particularly  the  7.45  pm  emission  feature.  The  initial  conditions  were  chosen  to 
mafr.h  the  initial  cell  conditions  before  the  laser  pulse,  which  were  110  torr  O2.  The  time 
dependence  of  the  electron  temperature  was  obtained  from  the  earlier  SALE  calculations."^^ 
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Several  calculations  were  made  with  different  reaction  set  models,  the  results  of  which  are  not 
documented  here.  The  desired  result  was  to  predict  the  7.45  pm  spectral  distribution. 

The  calculation  yielded  the  recombination  driven  state  populations  which  were  subsequently 
used  for  APOSTLE  spectral  calculations.  Figure  16  shows  the  resulting  triplet  state  population 
distribution  (the  quintet  state  distribution  is  similar)  compared  to  a  Boltzmann  distribution  at 
10000  K.  Figure  17  shows  the  resulting  synthetic  spectrum,  compared  to  the  previously  best  fit 
thermal  model  spectrum  and  the  experimental  spectrum  at  20  |as.  The  normalization  of  the  two 
model  spectra  were  chosen  to  be  coincident  with  the  observed  peak  intensities  of  the  5.69,  5.98, 
6.61,  and  6.86  pm  features  for  the  thermal  model  and  the  peak  intensity  of  the  7.45  pm  feature  for 
the  non-thermal  case.  Although  the  spectral  fit  is  poor  for  the  5.69,  5.98,  6.61,  and  6.86  pm 
features  in  the  non-thermal  case,  the  spectral  distribution  of  the  7.45  pm  feature  is  reproduced  with 
a  much  higher  quality.  It  was  also  observed  that  the  4.04  pm  feature  appears  to  be  relatively 
insensitive  to  either  thermal  or  non-thermal  populations.  It  appears  that  some  features  are 
modelled  well  using  an  collisionally-coupled  populations  and  others  using  a  non-thermal  model. 


State  Energy  (cm-1) 


Figure  16.  Comparison  of  the  triplet  Boltzmann  state  population  distribution  and  the  ARCHON 
calculation. 


39 


Data  (1 1 0  torr  30  ns) 

APOSTLE  (N=0.5x1 0‘»  T*=60000K  T,i=1  OOOOK)  " 
APOSTLE  (N»0.3x1 0“.  T.=1  OOOOK^CHON  populotions) 


Figure  17.  Comparison  the  APOSTLE  predicted  spectrum  using  coUisionally-coupled  state  populations 
and  the  ARCHON  calculated  state  populations. 


8.  SUMMARY  AND  CONCLUSIONS 

We  have  obtained  a  time  resolved  infiared  spectra  from  the  center  of  a  recombining  laser 
produced  oxygen  plasma.  Measurements  were  acquired  in  the  spectral  range  from  3.5  to  13.0  pm 
at  an  aperture  delay  time  of  20  ps.  The  transitions  near  10.4,  and  12.35  pm  are  first  reported 
observations  in  emission.  The  10.4  pm  feature  is  a  composite  line  dominated  by  the  6d^D-6p*P 
and  5p^P-4d^D  transitions  and  the  12.35  pm  feature  is  dominated  by  the  7g,h,P  G,H,I-6f,g,h^’^ 
F,G,H  transitions . 

In  general,  there  is  excellent  agreement  between  line  and  continuum  emission  models  and  data. 
An  electronic  temperature  of  8000  +  1000  K  was  derived  from  the  spectroscopic  analysis  of  the 
data.  Using  this  value,  the  electron  density  was  estimated  at  8xl0'^  cm'^  from  the  line  emission 
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model.  Lin’s  theoretical  emissivity  coefficients^^  were  then  used  in  conjunction  with  the  assimiption 
of  Saha  equilibrium  to  estimate  the  atomic  oxygen  density  and  the  path  length.  The  path  length 
was  derived  to  be  0.016  cm  and  the  atomic  oxygen  density  was  estimated  to  be  5  xlO**  cm'^ 
suggesting  that  the  ionization  level  was  <1%. 

Although  a  single  temperature  was  assumed  to  describe  the  state  population  distribution,  this 
conclusion  should  not  be  interpreted  rigorously  since  the  plasma  emission  region  may  be 
inhomogeneous  and  inconsistent  with  coUisional  equilibrium  conditions.  However,  the  deduced 
temperature  and  density  values  were  found  to  be  in  good  agreement  with  the  physical  description  of 
the  plasma  conditions  given  the  experimental  uncertainties. 

The  key  issues  surrounding  the  parametric  characterization  of  the  LINUS  plasma  include  the 
temporal  development  of  electron,  ion,  and  neutral  densities  and  temperature.  These  parameters 
determine  the  characteristic  of  the  emission  processes  that  unfold  in  the  plasma  relaxation.  At 
early  times,  the  observed  radiance  from  the  plasma  is  known  to  be  continuum  dominated, 
consisting  mostly  of  Free-Free  transitions  in  the  field  of  an  ion,  Free-Boimd  processes,  and  Free- 
Free  transitions  in  the  field  of  a  neutral.  These  processes  are  strongly  dependent  on  the  parameters 
densities  and  temperatures. 

The  present  contract  was  coincident  with  the  development  of  a  new  theoretical  description  for 
bremsstrahlung  radiation  due  to  electron-neutral  collisions.  This  new  model  was  compared  to 
previous  theories  and  the  EGG-22  plasma  radiance  model.  The  agreement  between  EGG-22  and 
the  new  coefficients  was  good  for  an  electron  temperature  of  10000  K  thus  vahdating  EGG-22. 
The  difference  between  Lin’s  coefficients  and  EGG-22  at  higher  temperatures  is  probably 
academic  however,  since  at  higher  temperatures,  the  gas  is  nearly  100%  ionized,  and 
bremsstrahlung  radiation  due  to  F-F(N)  becomes  a  minor  source  of  radiation. 

The  present  model  of  the  Stark  line  broadening  problem  is  based  on  the  standard  theory  of  Stark 
effect  usmg  the  quasi-static  approximation  and  impact  theory  of  Anderson.”  Many  calculations  in 
the  four-dimensional  parameter  space  (Ng  ,Te,Tf,  Tei)  of  the  model  were  used  to  provide  a  best 
estimate  of  the  plasma  parameters  within  the  measured  spark  region  of  a  laser  induced  oxygen 
plasma.  It  is  possible  that  the  electron  temperature  departs  from  the  01  electronic  temperature 
during  the  early  time  of  the  spark  (t<10'^s).  However,  the  line  spectrum  is  fairly  insensitive  to 
electron  temperature  and  no  estimates  of  Te  were  obtained  directly  from  lineshapes.  The  electron 
density  and  electronic  temperature  observed  in  the  laser  induced  oxygen  plasma  were  consistent 
with  Saha  equilibriiun  suggesting  the  plasma  was  coUisionally  dominated.  These  conclusions 
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compare  fevorably  with  previous  atomic  oxygen  linewidth  calculations  and  experimental  studies  of 
laser  produced  plasmas.  The  above  fevorable  comparisons  give  confidence  in  the  model  results 
except  for  lines  at  7.45pm  and  12.45pm  where  approximation  criteria  failed.  Although  the  present 
approach  has  been  only  applied  to  01  as  radiator,  the  model  should  be  applicable  to  emitters  in  a 
plasma  that  satisfy  L-S  coupling. 

Two  important  issues  related  to  the  LINUS  BR.  emission  spectrum  are  homogeneity  of  the 
emission  region  and  the  attainment  of  local  thermodynamic  equilibrium.  Thermal  and  non-thermal 
state  population  modelling  was  performed  which  was  then  used  for  APOSTLE  spectral 
Non-thermal  state  populations  were  modelled  with  ARCHON  using  a  reaction  set 
model  consisting  primarily  of  three-body,  dielectronic,  and  radiative  recombination,  and  radiative 
decay.  The  7.45  pm  line  shape  was  predicted  with  a  much  higher  quality  than  that  predicted  using 
thermal  populations.  It  was  concluded  that  the  different  spectral  character  of  the  7.45  pm  emission 
could  be  due  to  at  least  two  causes:  insufficient  treatment  of  overlapping  lines  or  non-thermal  state 
populations. 

Spatial  imaging  of  the  LINUS  plasma  emission  region  was  unfortunately  not  accomphshed  in 
the  present  study.  This  is  a  key  issue  important  to  understanding  the  plasma  development  and 
subsequent  relaxation.  The  experimental  observation  of  spatial  information  could  also  be  used  to 
benchmark  the  SALE  hydrodynamic  calculations^^,  as  well  as  directly  address  the  issues  of 
homogeneity  and  collisional-radiative  processes. 
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APOSTLE  USER’S  MANUAL 
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1.  INTRODUCTION 

The  APOSTLE  computer  code  modules  are  written  and  FORTRAN  77  and  are  most  efficiently 
executed  on  a  computer  with  at  least  a  i386  CPU  with  math  coprocessor.  The  source  code  was 
developed  as  a  three  module  program  with  Lahey  and  SVS  brand  compilers.  In  the  past,  the  code 
has  also  executed  succesfiilly  and  SUN  386i  workstation  and  the  Apollo  DNIOOO  computer.  There 
is  minimal  “user-fiiendliness”  code  in  the  model.  If  a  program  execution  is  foiling,  it  is  advised  to 
first  check  the  input  files  for  inconsistencies.  If  all  parameters  in  the  input  files  appear  consistent, 
then  one  or  more  of  those  parameters  may  be  outside  the  range  of  validity  of  the  model. 

The  FORTRAN  structure  of  each  module  is  written  compactly;  that  is,  all  subroutines  and 
functions  are  contained  in  the  source  code  module  file.  This  design  was  meant  to  make  source  code 
compilation  easier.  Compilation  is  performed  for  each  module,  thus  there  should  be  three 
executables  after  compilation. 

The  APOSTLE  program  package  should  reside  in  one  subdirectory.  This  is  achieved  by  simply 
copying  the  source  code,  all  of  the  input  files,  and  external  data  files  to  a  C.\APOSTLE 
subdirectory.  A  typical  subdirectory  listing  may  appear  like: 


Volume  in  drive  C  is  MS-DOS_5 
Volume  Serial  Number  is  18E2-8248 
Directory  of  C:\APOSTLE 


<DIR> 

04-21-94 

8:36a 

<DIR> 

04-21-94 

8:36a 

README 

3559 

01-11-94 

11:36a 

M31S1 

DAT 

814 

04-15-91 

2:20p 

M31S2 

DAT 

814 

04-15-91 

2:20p 

M53S1 

DAT 

1387 

09-20-91 

11:40a 

M53S2 

DAT 

1387 

09-20-91 

11:43a 

M54S1 

DAT 

1415 

04-07-93 

8:48a 

STARK 

FOR 

105430 

06-24-94 

11:55a 

LINSHAPE 

FOR 

23126 

05-23-94 

11:57a 

MFD 

FOR 

97707 

01-09-94 

11:34a 

MFD 

SET 

362 

01-07-94 

11:22a 

STARKl 

SET 

1194 

06-24-94 

11:46a 

STARK2 

SET 

1194 

06-24-94 

11:47a 

LINSHAPE 

SET 

796 

05-23-94 

10:16a 

All  files  with  the  * .  set  filename  extensions  are  input  files  for  the  executables.  These  input 
files  are  edited  manually  before  program  execution.  The  mformation  in  the  input  files  are 
commented  and  are  meant  to  be  self-explanatory.  The  format  of  the  input  files  are  structured  as; 
parameters  in  column  1  and  defiiutions/comments  written  in  column  13.  All  data  input  is  not 
formatted.  The  files  M31S1.DAT,  M31S2.DAT,  M53S1.DAT,  M53S2.DAT  and 
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M5  4  S 1 .  DAT  contain  basis  set  infonnation  which  is  read  in  at  the  time  of  executables.  The  names 
of  the  *.set  files  should  never  be  changed  since  each  program  module  searches  the  subdirectory  for 
these  files.  Additionally,  all  input  parameters  in  the  input  files  should  be  in  upper  case.  With  these 
input  files,  a  typical  APOSTLE  synthetic  spectral  calculation  can  be  acheived  in  4  steps; 

(1)  edit  input  files 

(2)  execute  mfd.exe  (microfield  distribution)  module 

(3)  execute  staik.exe  (collisional  stark  broadening)  module. 

(4)  execute  linshape.exe  (line  shape  construction  and  instrument  convolution)  module 

hi  the  first  step,  the  edited  input  files  define  the  values  of  the  parameters  used  by  the  model. 
These  input  files  reside  in  the  subdirectory  where  the  output  files  will  be  written.  It  is  useful  to 
store  the  program  executables  in  a  “C:\BIN”  subdirectory  and  including  this  subdirectory  in  the 
path  statement  of  the  AUTOEXEC.BAT  file  of  the  computer.  The  input  files  are  edited  using 
standard  editors  such  as  the  MS-DOS  editor  “EDIT”  or  the  Borland  editor  BRIEF.  Once  the  input 
files  are  edited,  program  execution  is  carried  out  by  typing  the  program  module  name  at  the  DOS 
prompt.  Program  execution  may  also  carried  out  through  the  use  of  batch  files. 

In  the  second  step,  the  mfd  module  is  executed  to  create  the  microfield  distribution.  When  the 
microfield  distribution  is  created,  the  information  is  written  to  hard  disk.  In  the  third  step,  the  stark 
module  is  executed.  The  calculation  is  looped  over  two  iterations  for  spin  1  and  spin  2.  Thus  there 
will  be  two  ou^ut  files  from  the  stark  module.  The  third  and  final  step,  is  the  construction  of  the 
spectrum  firom  the  line  broadening  information  calculated  by  the  stark  module.  Two  files  are 
written  to  hard  disk:  the  instrument  convolved  spectrum  and  the  unconvolved  spectrum. 

The  following  sections  of  this  appendix  describe  the  model  I/O.  Only  partial  output  content  is 
exemplified  here  due  to  the  voluminous  nature  of  the  output  files.  The  example  input  files  may  be 
used  as  a  test  case.  The  values  of  the  input  parameters  for  the  test  case  have  been  chosen  to  reduce 
the  program  run  time. 

II.  MODULE  I/O 
A.  MFD 

The  first  module  executed  is  the  ion  microfield  probability  distribution  module  (mfd.exe). 
Figure  A1  gives  an  example  of  the  input  file  (mfd.  set)  for  producing  a  microfield  distribution 
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for  an  electron  density  of  8x10*^  cm'^  and  an  electron  temperature  of  10000  K.  The  output  in  this 
example  is  a  single  file  (N8_0T10 .  H15)  consisting  of  a  set  of  electric  field  strengths  with  the 
corresponding  probabilities  of  producing  these  field  strengths.  There  are  a  total  of  5 1  sample  points 
in  the  microfield  distribution.  The  incremental  spacing  of  this  distribution  is  not  constant. 


input 

variable 

description 

N8  0T10.H15 

OUTFIL 

OUTPUT  FILENAME 

0 

IH 

LOW  FREQ.=0,  HI  FREQ.=1 

0.8 

EDENS 

ELECTRON  DENSITY  XE16 

10000. 

TE 

ELECTRON  TEMP.  IN  K 

1.1 

ALPHA 

INITIAL  ESTIMATE  (1.1) 

0 

R 

RATIO  OF  TYPE  2  TO  TYPE  1  PERTURBERS 
(0) 

1.0 

TRATIO 

RATIO  OF  ELECTRON  TO  ION  TEMPERATURE 
(1.0) 

0 

XI 

NET  RADIATOR  CHARGE  (0.0) 

1 

Z1 

NET  CHARGE  OF  TYPE  1  PERTURBER  (1) 

1 

Z2 

NET  CHARGE  OF  TYPE  2  PERTURBER  (1) 

0.1 

DALPHAl 

VALUE  FOR  THE  ALPHA- VALUE  SEARCH  (0.1) 

Figure  Al.  The  input  file,  mf  d .  set,  is  used  to  define  the  input  parameters  for  the  mfd  module. 


B.  STARK 

The  stark  module  calculates  the  hne  broadening  information  for  spectrum  construction.  This 
output  is  used  for  the  lineshape  module.  During  execution,  the  information  is  written  to  the  screen. 
The  stark  module  reads  in  the  input  files  (STARKl .  SET  and  STARK2 .  SET),  an  example  of 
which  is  given  in  Figure  A2,  and  all  the  external  files  (M31S1.DAT,  M31S2.DAT, 
N8  0T10.H15,  and  possibly  an  externally  calculated  population  file).  In  this  example,  a 
collisional-stark  broadening  calculation  is  performed  for  an  electron  density  of  8xl0'^  cm^  and 
electron  temperature  of  10000  K. 


input 

variable 

description 

M31S1.DAT 

NAME IN 

BASIS  STATE  FILENAME 

0.8 

XIDENS 

ION  DENSITY  (1E16CM-3) 

0.8 

EDENS 

ELECTRON  DENSITY  (1E16 

10000. 

ETEM'P 

ELECTRON  TEMPERATURE  (K) 

10000. 

TEL 

ELECTRONIC  TEMPERATURE 

4.0 

WVMIN 

MINIMUM  WAVELENGTH 

4.1 

WVMAX 

MAXIMUM  WAVELENGTH 

STARKl . DAT 

NAMEOUT 

OUTPUT  FILENAME 

N8  0T10.H15 

NAMEFD 

MICROFIELD  FILENAME 

50 


51 

NEPT 

NUMBER  OF  ELECTRIC  FIELD  POINTS 

5 

NINC 

SAMPLED  INCREMENT 

s 

EBROAD 

E-BROADENING:  U,S,OR  P? 

c 

ZEMAVG 

IF  U  READ(R)  OR  CALCULATE (C) 

NONE 

NAMEWID 

READ  FROM  FILE  - > 

Y 

POPBOLTZ 

POPULATION:  BOLTZMANN?  (Y/N) 

N 

NAMEPOP 

IF  N,  READ  FROM  POP.  FILE: 

N 

NAINT 

NUMERICAL  INTEGRATION? 

10 

NGAUSS 

Quadrature  intervals 

Figure  A2.  The  input  file  STARKl .  SET  used  to  define  the  input  parameters  for  the  stark  module. 

The  input  files  (starkl .  set  and  stark2 .  set)  contains  18  lines  each.  The  parameters  in 
these  files  have  the  following  definitions: 

NAME  IN  =  name  of  the  basis  state  filename 
XIDENS  =  ion  density  in  units  of  lO'®  cm'^ 

EDENS  =  electron  density  in  units  of  1  o'®  cm'^ 

ETEMP  =  electron  temperature  (K) 

TEL  =  electronic  temperature  (K) 

WVMIN  =  starting  wavelength  (pm) 

WVMAX  =  ending  wavelength  of  spectral  range  (pm) 

NAMEOUT  =  name  of  the  output  file  used  in  the  linshape  module 

NAME  FD  =  name  of  the  microfield  distribution  file 

NEPT  =  number  of  points  in  the  microfield  distribution  (51) 

NINC  =  incremental  sampling  of  the  microfield  distribution 
EBROAD  =  electron  broadening  cases  which  have  the  following  choices: 

u  -  unperturbed  energies  and  unperturbed  wavefiinctions 
s  -  ion-pertubed  energies  and  unperturbed  wavefimctions 
p  -  ion-perturbed  energies  and  perturbed  wavefimctions 
ZEMAVG  =  for  the  imperturbed  case,  either  [R]ead  values  of  electron  widths  from  a  file  or 
[Cjalculate  the  values 

NAMEWID  =  if  ZEMAVG=[R],  file  name  to  be  read  containing  electron  widths 
POPBOLTZ  =  if[Y]es,  then  a  relative  Boltzmann  distribution  is  calculated  internally 
according  to  the  input  electronic  temperature 
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NAMEPOP 


=  in  POPBOLTZ=  [N] ,  the  name  of  the  file  containing  the  state  population 
distribution 

NAINT  =  numerical  integration  [Y/N] 

NGAUS  S  =  if  NAINT=  [  N  ] ,  nxunber  of  gaussian  quadrature  intervals 

The  first  line  is  the  basis  state  filename  (mSlsl .  dat  or  m31s2  .  dat)  and  has  the  following 
format. 


s 

NBASIS 

N1 

N2 

LI 

L2 

ENILI 

EN2L2 

IGROUPl 

IGROUP2 

- 

• 

• 

• 

. 

• 

• 

• 

where  the  parameters  in  the  basis  state  file  have  the  following  defimtions: 

S  =  spin  angular  momentum  quantum  number 

NBAS  I S  =  munber  states  in  the  file 
N  =  principal  quantum  number 

L  =  orbital  angular  momentum  quantum  number 

ENL  =  term  value  of  the  unperturbed  state  (cm'*) 

I  GROUP  =  group  number 


The  order  of  the  basis  states  in  the  basis  state  file  is  from  large  L  to  small  L.  Basis  states  which 
have  the  same  group  number  can  perturb  one  another  if  the  electric  dipole  selection  rules  are 
obeyed. 

Independently  calculated  state  population  distributions  may  be  read  by  the  stark  module. 


N1 

LI 

POPLl 

N2 

L2 

POPL2 

. 

. 
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The  program  reads  the  first  value  of  the  microfield  distribution,  calculates  the  Ime  broadening 
information  for  all  transitions  that  lie  in  the  input  spectral  range,  then  iterates  to  the  next 
microfield  distribution  sample  point.  For  example,  if  ninc=5,  then  every  fifth  distribution  sample 
point  is  used  for  the  broadening  calculation  and  there  will  be  1 1  iterations  of  the  calculation. 


Figure  A3  shows  partial  output  of  the  stark  module,  fii  the  figure,  the  first  three  lines  are  the 
values  for  the  electron  density  (xlO*®  (cm'^)),  the  electron  temperature  (K),  and  electronic 
temperature  (K).  The  next  block  of  information  is  the  line  broadening  information.  The  columns 
of  numbers  following  the  densities  and  temperatures  are:  1)  the  wavelength  of  the  transition  (^m), 
2)  Einstein  coefficient  (s'^),  3)  population  (cm'^),  4)  halfwidth  of  the  lorehztian  distribution  (cm'*), 
5)  weighted  electric  field  strength  probability,  6)  product  of  the  upper  term  value  and  hc/k  (K),  and 
7)  transition  assignment.  The  line  shape  module  only  reads  the  first  four  columns  of  uiformation. 
The  last  three  contain  extraneous  information. 


8.0000E-01 


10000. 

0000 

10000. 

0000 

7.482 

9.6503E+04 

5.1219E+05 

1.4340E+01 

1.3550E-02 

155566. 

8j- 

6h 

3.768 

5.2238E+04 

1.7196E+07 

4.8400E+01 

4.5491E-01 

155518. 

8h- 

5f 

8.890 

1.6921E+03 

9.6574E+06 

1.6519E+01 

3.0673E-'02 

155008. 

7h- 

7s 

4.401 

5.8237E+04 

2.8403E+06 

1.6016E+01 

5.0093E-03 

154949. 

8i- 

5d 

3.538 

1.3098E+03 

6,2842E+05 

2.1680E+00 

8.3124E~04 

156984. 

8j- 

6h 

4.775 

2.5185E+04 

2.1550E+05 

1.5064E+01 

2.8505E-04 

156236. 

8i- 

7p 

10.733 

2.8651E+04 

1.3376E+05 

4.6791E+00 

1.3553E-04 

153029. 

7i- 

6g 

-1. 

-1.  -1.  -1. 

12565  0.408849E+01 


Figure  A3 .  Example  information  fi'om  the  starkl  .dat  ou^ut  file  of  the  stark  module. 


C.  LINSHAPE 

the  linshape  module  constructs  the  spectrum  from  the  line  broadening  information  calculated  by  the 
stark  module.  The  file  in  Figure  A4  is  an  example  of  the  input  for  the  linshape  module.  There  will 
be  two  such  files;  one  for  spin  1  information  and  one  for  spin  2  information.  Typically,  these  are 
named  starkl .  dat  and  stark2 .  dat 
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input 

variable 

description 

STARKl . DAT 

NAME  INI 

CODE-B  OUTPUT  FOR  SPIN  1 

STARK2 . DAT 

NAMEIN2 

CODE-B  OUTPUT  FOR  SPIN  2 

OUTPUT . SYN 

ENAMEW 

OUTPUT  FILENAME  (CONVOLVED  SPECTRA 

2.E+17 

DENS 

TOTAL  ATOM  DENSITY  (CM-3) 

1.0 

PTHLEN 

PATH  LENGTH  (CM)  [0.6  CM  FROM  SALE 
RESULTS] 

4.0 

WVST 

START  WAVELENGTH  (MICRONS) 

4.1 

WVEN 

END  WAVELENGTH  (MICRONS) 

0.001 

R 

INTERNAL  RESOLUTION  (MICRONS) 

(LINUS :0. 001 

0.02 

REXT 

EXTERNAL  RESOLUTION  (MICRONS) 

S 

SPEC 

N=NONE, S=SPEX,C=CVF 

3. 

SLIT 

SLIT  WIDTH  IN  MM 

0.03 

DELAMDA 

MICRONS 

T 

INSTFNT 

T=TRI ANGULAR,  R==RECTANGULAR 

Figure  A4.  The  input  file,  linshape.set  used  to  define  the  input  parameters  for  the  linshape  module. 


The  parameters  in  the  linshape  module  input  file  have  the  foUowing  definitions, 
NAME  INI  =  name  of  the  spin  1  output  file  from  the  stark  module 
NAME  IN2  =  name  of  the  spin  2  output  file  from  the  stark  module 
ENAMEW  =  name  of  the  output  file  from  the  linshape  module 
DENS  =  total  atomic  oxygen  density  (cm'^) 

PTHLEN  =  path  length  associated  with  the  emission  region 
WVST  =  starting  wavelength  of  the  spectral  region  (pm) 

WVEN  =  ending  wavelength  of  the  spectral  region(pm) 

R  =  internal  grid  spacing(pm) 

REXT  =  external  grid  spacing(pm) 

SPEC  =  instrumental  resolution  (FWHM) 

SLIT  =  sUt  width  in  mm 

DELAMDA  =  if  spex  =  [n] ,  fwhm  of  the  instrument  resolution 

INSTFNT  =  shape  of  the  resolution 


There  are  two  grid  spacings  associated  with  the  output  of  the  linshape  module.  The  external  grid 
spacing  is  design  for  hard  space  saving.  If  the  external  grid  spacing  is  equal  to  the  internal  grid 
spacing,  every  spectral  sample  in  the  spectrum  is  included  in  the  output  file  (output,  syn).  A  note  is 
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made  here  that  too  large  of  an  internal  grid-spacing  will  result  in  insufficient  sampling  of  the 
spectral  distribution  which  may  lead  to  erroneous  line  shape  construction  and  instrumental 
convolution.  Additionally,  the  external  grid  spacing  should  never  exceed  the  internal  grid  spacing. 
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APPENDIX  B 
SOURCE  CODE 
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CODE  A:  Ion  microfield  probability  distribution 


PROGRAM  mfd 

implicit  real*8  (a“h,o-z) 
character*12  outfil 
common/freq/ih 

common/micro/ a, r, Tratio, xi, zl, z2, e (101) , pe (101) , alpha 

coinmon/lili2/ri  (200)  ,fll(200)  ,  fl2  (200)  ,nl 

parameter (pi=3 . 14159D+00) 

parameter  (ekb==l .  38066D-16) 

parameter (e0=4 . 8026D-10) 

parameter {e02=e0*e0) 

9000  format (3x, 'edens  =' ,f8.2/3x, 'Te  =' ,f8.2/3x, 'alph  =',f8.2 

s  /3x,'r  =' ,f8.2/3x, 'Tratio  =’ ,f8.2/3x, ’xi  =',f8.2 

&  /3x,’zl  =' ,f8.2/3x, 'z2  =' ,f8.2/3x, 'dalphl  =' ,f8.2/) 

read(*, ’ (a) ’ y  outfil 
read(*,*)  ih 
read(*,*)  edens 
read{*,*)  Te 
read(*,*)  alph 
read(*,*)  r 
read(*,*)  Tratio 
read(*,*)  xi 
read(*,*)  zl 
read(*,*)  z2 
read{*,*)  dalphl 

open  (7, file=outfil, status=* unknown’ ) 

write (*, 9000)  edens, Te, alph, r, Tratio, xi, zl, z2, dalphl 

edens=edens  * ( 1 . 0D+ 1 6 ) 
rml=3 . OdO/ (4 . 0d0*pi* edens) 
rm=  (rml)  **  (!•  /3. ) 

elainbda=sqrt  (  (ekb*Te*rml)  /  (3 . 0d0*e02 )  ) 
a=rm/e  lambda 

write(*,*)  ’  Computing  microfield  distribution...' 

call  alser (alph, dalphl) 
call  genii 
call  geni2 
call  trans 
call  afit 

close (1) 

stop 

end 
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CODE  B:  Collisional  Stark  Broadening 


;******************************stARk.FOR********************************'' 

:  COLLISIONAL  STARK  BROADENING  MODEL  FOR  ATOMIC  OXYGEN 

:  MISSION  RESEARCH  CORPORATION 

:  1  TARA  BLVD  SUITE  302 

;  NASHUA  NH  03062-2801 

:  THIS  IS  THE  MAIN  PROGRAM  IN  THE  STARK  LINE  BROADENING  MODEL. 

:  SUCCESFUL  COMPILATION  AND  LINKAGE  WITH  TiSSOCIATED  SUBROUTINES 
:  THE  EXECUTABLE  PROGRAM  HANDLES  FOUR  TASKS: 

:  1.  READS  IN  INPUT  PARAMETERS  IN  THE  FORM  OF  AN  INIT-FILE, 

:  2.  CALCULATES  ION-PERTURBED  ENERGY  LEVELS  AND  WAVEFUNCTIONS, 

:  TRANSITION  WAVELENGTHS,  TRANSITION  PROBABILITIES,  AND 

:  RELATIVE  POPULATIONS, 

:  3.  CALULATES  ELECTRON-BROADENED  LINEWIDTHS,  AND 

:  4.  WRITES  THE  OUTPUT  FILE. 

:  LOGICAL  UNIT  ASSIGNMENTS: 


:  (2)  (NAMEOUT)  OUTPUT  FILE:  LINE,  A-COEF,  POP,  E-BROAD 

:  (14)  (NAMEPOP)  NAME  OF  NON- BOLTZMANN  POP.  FILE  IF  USED 

:  (11)  (NAMEIN)  NAME  OF  BASIS  STATE  FILE 

:  (21)  (NAMEFD)  NAME  OF  HOOPER  MICROFIELD  FILE 

:  (22)  (NAMEWID)  NAME  OF  E-BROAD.  FILE  IF  NOT  CALC.  THIS  RUN 

:  (31)  (OUTRANGE.DAT)  NAME  OF  E-BROAD.  FILE  IF  CALC.  THIS  RUN 

■'**************************************************************'*********'^ 


PROGRAM  STARK 

IMPLICIT  REAL*8  (A-H,0-Z) 

PARAMETER (BK=1 . 3 8 07D- 1 6 ) 

PARAMETER  (PI=3 . 141592 654D+00) 

PARAMETER  (A0=0 .  S29177D-08 ) 

PARAMETER (E0=4 . 8  0324D-10) 

PARAMETER ( EMASS=9 . 1 0 95 3D-2 8 ) 

PARAMETER  ( ECOUL= 1 . 6D- 1 9 ) 

PARAMETER ( C 0=2 . 9 9 7 92 5 D+1 0 ) 

PARAMETER (H0=6. 62 61961D-27) 

PARAMETER (HBAR=1 . 0545 9D-3 4 ) 

PARAMETER (COEFF=0 . 5D0* (2 . D0*9 . D11*AO*ECOUL**2/HBAR) *  *2 ) 
PARAMETER ( IDMN=5  5 ) 

PARAMETER  ( INML=5  0  0 ) 

PARAMETER (ITRN=12*INML) 


CHARACTER* 1  PERTURB , EBROAD , NAINT 
CHARACTER*!  ZEMAVG, POPBOLTZ, ORB (0 :  8 ) 

CHARACTER*24  NAMEIN, NAMEOUT, NAMEFD, NAMEWID, NAMEPOP 


DATA  ORB/’S', ’ P ' , ' D ’ , ' F’ , ’ G' , ’ H’ , ' I ' , ' J’ , ' K' / 


DIMENSION  E (IDMN) , PQN (IDMN) ,XLB (IDMN) , IGROUP (IDMN) 
DIMENSION  RME(10,20,20) 

DIMENSION  ZNEW(INML,INML) ,EM(INML) ,PQNW(INML)  , 

&  XLW(INML) ,XMW(INML) ,NEND(INML) 

DIMENSION  XG(IOO) ,WG(100) 

DIMENSION  A(IDMN,IDMN) ,WR(IDMN) , Z ( IDMN, IDMN) 

DIMENSION  XM(INML)  ,EZWIDTH  (IDMN,  IDMN)  ,XINDEW(INML) 
DIMENSION  AMP2(ITRN) ,WWRI (ITRN) ,WWRJ(ITRN) ,XLAMB(ITRN) 
DIMENSION  XEF (102 ) ,PF( 102) ,ELWIDTH (ITRN) 

DIMENSION  POP (IDMN, 0: IDMN) 

DIMENSION  IPQNW(ITRN) , JPQNW(ITRN) , IXLW(ITRN)  ,  JXLW(ITRN) 
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COMMON/CONSTANTS /EVELOC , DEBYELN , DEBROGLN 
COMMON/ANS/PERTURB, EBROAD, NAINT 
COMMON/EZPARAM/E, PQN, XLB, IGROUP,NBASIS 
COMMON/RAD  lAL/RME 
COMMON/PLASM/EDENS, ETEMP, SPIN 
COMMON/IPARAM/NSTATE, NINIT,NFIN 
COMMON/ FPARAM/ZNEW,  EM,  PQNW,  XLW,  XMW,  NEND 
COMMON/GAUSS/  XG,WG,NGAUSS 


1299 

1301 

2000 

3000 

9005 


FORMAT (IX, 'K  =  ',110,  'IS  TOO  LARGE', 110) 

F0RMAT(1X,F7.3,1P,4 (2X,E10.4) ,2X,0P,F7.0,2X,I2,A, 

FORMAT (3X,  '-1.  -1.  "I-  "I-') 


-',12, A) 


FORMAT (IX, I10,2X,E14. 6) 

FORMAT (5X, 12 , 3X, 12, 3X, IP, E12 .3, 3X, E12 . 3, 3X, E12 . 3) 


DO  9999  ISPIN=1,2  !  END  OF  LOOP  NEAR  MAIN  PROGRAM  END  STATEMENT 


IF(ISPIN.EQ.l)  THEN 

WRITE (*,*)  '  STARK  BROADENING  -  SPIN  1...' 

OPEN ( 7 , FILE= ' STARKl . SET ' , STATUS= ' OLD ' ) 

ELSE  IF  (ISPIN.EQ.2)  THEN 

WRITE (*,*)  '  STARK  BROADENING  -  SPIN  2...' 

OPEN ( 7 ,  FILE= ' STARK2 . SET ' , STATUS= ' OLD ' ) 

END  IF 


READ (7, ' (A) ' )NAMEIN 

READ(7,*)XIDENS 

READ (7,*) EDENS 

READ (7,*) ETEMP 

READ (7,*) TEL 

READ(7,*)WVMIN 

READ(7,*)WVMAX 

READ (7, ' (A) ' )NAMEOUT 

READ (7, '  (A)  ' )NAMEFD 

READ(7,*)NEPT 

READ(7, *)NINC 

READ (7, '  (A) ') EBROAD 

READ (7, ' (A) ' ) ZEMAVG 

READ  (7,  '  (A)  '  INAMEWID 

READ (7, ' (A) ' )POPBOLTZ 

READ (7, ' (A) ')NAMEPOP 

read  (7,  '  (A)  ')  NAINT 

READ(7,*)NGAUSS 

CALL  GAULEG(XG,WG,NGAUSS)  !  SETUP  GAUSSIAN  INTEGRATION 


NSTART=1 

ISTOP=0 

OPEN  (2, FILE=NAMEOUT, STATUS='NEW'  ) 

WRITE (2, ' (1PE12.4) ’ )XIDENS 
WRITE (2, ' (F12.4) ') ETEMP 
WRITE (2, ' (F12.4) ' ) TEL 

EDENS=EDENS*1.D16  !  ELECTRON  DENSITY  IN  UNITS  OF 

NM=IDMN 


1E16/CM3 


IF  (POPBOLTZ.EQ. 'N' )  THEN 

OPEN (14, FILE=NAMEPOP, STATUS='OLD' )  !  USER  SUPPLIED  POPULATION 

DO  20  1=1,100 

READ ( 14 , * ) NPQN, NXL, POP (NPQN, NXL) 

IF  (NPQN.EQ.3.AND.NXL.EQ.0)  GO  TO  21 

20  CONTINUE 

21  CONTINUE 
ENDIF 

EVCM=8065.479  !  CONSTANTS  AND  UNIT  CONVERSION  FACTORS 

E02  =  E0*E0 
CONST3  =  (H0*C0) 
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C0NST5  =  C0NST3/BK 

DO  30  I  =  1, 102  ! 

XEF(I)  =  0.0 
PF(I)  =  0.0 
30  CONTINUE 

DO  40  I  =  1,IDMN  ! 

DO  40  J  =  1,IDMN 
A(I,J)  =  0.0 
Z(I,J)  =  0.0 

40  CONTINUE 
DO  41  I=1,ITRN 

ELWIDTH(I)=0. 

41  CONTINUE 

OPEN ( 11 , FILE=KAMEIN, 

READ (11,*) SPIN 
READ(11, *)NBASIS 
DO  50  I=1,NBASIS 
READ(11,*)PQN{I) ,XLB(I) ,E{I) ,IGROUP{I) 

50  CONTINUE 
CLOSE (11) 

IF  (SPIN.EQ.l.)  CALL  RADMATXl  !  READ  IN  RADIAL 

IF  (SPIN.EQ.2.)  CALL  RADMATX2  !  MATRIX  ELEMENTS 

LMAX=INT(XLB(1) ) 

MMAX=LMAX+1 

DO  51  I=1,MMAX  !  CALCULATE  POSITIVE  ML  VALUES 

XM(I)=FLOAT(I-l) 

51  CONTINUE 

C  STATIC  ELECTRIC  FIELDS  DUE  TO  ION  DENSITY,  XIDENS=ION  DENSITY  IN 
C  UNITS  OF  1E16  CM-3 

IF  (EDENS.EQ.O.)  EBROAD='N' 

IF  (XIDENS.EQ.O. )  THEN 
PF(1)=1.0 
XEF(1)=1. 

XEF(2)=2. 

NEPT=1 

NINC=1 

ELSE 

EDN  =  XIDENS* (l.OD+16) 

RMl  =  0.75/ (PI*EDN) 

RM  =  RMl** (1./3.) 

RM2  =  RM**2 

ELAMBDA  =  BK*ETEMP 

ELAMBDA  =  ELAMBDA*  RMl 

ELAMBDA  =  SORT (ELAMBDA/ (3 . 0*E02 ) ) 

AA  =  RM/ELAMBDA 
AA=AA 

EFO  =  ( (300.0) *E0) /RM2  !  FIELD  STRENGTH  IN  VOLTS/CM 
OPEN  (21,  FILE  =  NAMEFD,  STATUS  =  'OLD')  !  INPUT  HOOPER'S 
DO  60  KN=1,NEPT  !  MICROFIELD 

READ(21,*)XEF(KN) ,PF(KN)  !  DISTRIBUTION 

60  CONTINUE 

CLOSE (21) 

END  IF 
KH  =  ISTOP 

C  EVALUATE  BROADENING:  EVALUATE  ELECTRON  VELOCITY,  DEBYE  LENGTH, 

C  DEBROGLIE  WAVELENGTH. 

EVELOC=SQRT(8.*BK*ETEMP/(PI*EMASS) ) 

DEBYELN=SQRT (BK*ETEMP/ (4 . *PI*EDENS*E0**2) ) 


1CONST5  =  1/(0.695  CM-l/K) 
INITIALIZATION  OF  MICROFIELD  VARIABLES 


INITIALIZATION  OF  A(I,J) 


STATUS  =  'OLD')  !  INPUT  BASIS  STATES  IN 
!  ORDER  OF  DECREASING  L 
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DEBROGLN=HO/ (EMASS*EVELOC) / {2 . *PI) 

C  EVALUATE  ELECTRON  WIDTH  FOR  UNPERTURBED  CASE: 

IF  (EBROAD.EQ. 'U' )  THEN 
IF  (ZEMAVG.EQ. 'R' )  THEN 

OPEN  (22,  FILE  =  NAMEWID,  STATUS  =  'OLD') 

DO  100  IE=1,NBASIS 
DO  100  JE=IE+1,NBASIS 
EZWIDTHdE,  JE)=0. 

READ  (22,  *)  IDUM,JDUM,DUM, EZWIDTHdE,  JE) 

IDUM=IDUM  !  SET  DUMMY  VARIT^LES  EQUAL  TO  SELF  FOR 
JDUM=JDUM  !  A  CLEAN  COMPILE 
DUM=DUM  ! 

EZWIDTH { JE, IE ) =EZWIDTH (IE , JE ) 

100  CONTINUE 

ELSE  IF  (ZEMAVG.EQ. 'C )  THEN 
DO  110  IE=1,NBASIS 
DO  110  JE=IE+1,NBASIS 
IF  (lE.NE.JE)  THEN 
EZWIDTHdE,  JE)=0. 

NINIT=IE 

NFIN=JE 

CALL  ELBAVG(EWIDTH,XSECT) 

EZWIDTH (IE, JE) =EWIDTH 
EZWIDTH ( JE, IE) =EZWIDTH (IE, JE) 

END  IF 

110  CONTINUE 

ENDIF 
END  IF 

DO  1000  KN  =  NSTART,NEPT,NINC  !  LOOP  THRU  QUASISTAT  FIELD:  FIND 
NSTATE=0  !  TRANSITIONS  FOR  EA  FIELD  VALUE 

DO  1100  ML=1,MMAX  !  BLOCK  DIAGONALIZATION  ACCORDING  TO  ML 
N=0 

DO  1105  I=1,NBASIS  !  DETERMINE 

IF  {XLB(I) .LT.ABS(XM(ML) ) )  GO  TO  1106  !  SIZE  OF 
N=n+1  !  MATRIX  TO  BE 

1105  CONTINUE  '■  DIAGONALIZED 

1106  CONTINUE 

C  CALCULATE  OFF-DIAGONAL  MATRIX  ELEMENTS  (ANGULAR  AND  RADIAL) 

DO  1110  1=1, N 
DO  1110  J=I+1,N 

CALL  ANGME{XLB(I) ,XM(ML) ,XLB{J) ,XM(ML) ,AME) 

IF  (AME.EQ.O.)  THEN 
A(I, J)=0. 

ELSE 

XLN1=XLB(I) 

XLN2=XLB(J) 

PN1=PQN(I) 

PN2=PQN(J) 

IF  (XLN1.LT.XLN2)  THEN 
XLN1=XLN2 
PTEMP=PN2 

.  PN2=PN1 

PN1=PTEMP 
END  IF 

IXLN1=INT(XLN1) 

IPN1=INT(PN1) 

IPN2=INT(PN2) 

RADIALME=RME ( IXLNl , IPNl , IPN2 ) 

IF  (RADIALME.EQ.O.)  THEN 

WRITE  ( 2 ,  * )  IXLNl ,  IPNl ,  IPN2 ,  RADITiLME 
END  IF 
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A (I , J) =-AME*RADIALME*AO*XEF (KN) *EFO*EVCM 
END  IF 

A{J,I)=A(I, J) 

1110  CONTINUE 

DO  1120  1=1, N  !  DIAGONAL  ELEMENTS  ARE  THE  ZERO  FIELD 

A{I,I)=E{I)  !  ENERGY  LEVELS 

1120  CONTINUE 

CALL  JACOBI  (A, N,NM,WR,Z,NROT)  !  MATRIX  DIAGONALIZATION 

C  RELABEL  ML  STATES 

DO  1130  1=1, N 

NSTATE=NSTATE+1 
XINDEW ( NSTATE ) =FLOAT ( I ) 

NEND (NSTATE) =N 
EM (NSTATE) =WR (I) 

XMW (NSTATE ) =XM (ML ) 

PQNW (NSTATE ) =PQN ( I ) 

XLW (NSTATE) =XLB ( I ) 

IF  (N.EQ.l)  THEN 

ZNEW(1,NSTATE)=Z (1,1) 

ELSE 

DO  1131  K=1,N 

ZNEW(K, NSTATE)  =  Z(K,  I) 

CONTINUE 
END  IF 
CONTINUE 
1100  CONTINUE 

C  EVALUATED  TRANSITION  FREQUENCIES  AND  PROBABILITIES: 


1131 

1130 


K=0 

DO  1200  IM=1, NSTATE 
DO  1200  JM=IM+1, NSTATE 

WWWX  =  ABS  (XMW(IM) -XMW(  JM)  ) 

WWX  =  ABS(EM(IM)-EM(JM)  ) 

XIAMBDA  =  10000. O/MAXdOO.ODO,^^^) 

IF  (WWWX  .LE.  1.  .AND. 

&  WWX  .GE.  100.0  .AND. 

&  XIAMBDA  .LE.  WVMAX  .AND. 

&  XIAMBDA  .GE.  WVMIN 

&  )  THEN 

C  EVALUATE  DIPOLE  MOMENT  MATRIX  ELEMENTS  BETWEEN  PERTURBED 
C  WAVEFUNCTIONS  FOR  A  DELTA  ML=0,+1,-1  TRANSITION 


TAMP=0 . 


DO 

DO 


1210  11=1, NEND (IM) 

1210  JJ=1,NEND(JM) 

CALL  ANGME(XLB(II)  ,XMW(IM)  ,  XLB  ( JJ)  ,  XMW(  JM)  ,AME) 
IF  (AME.NE.O.)  THEN 
XLN1=XLB(II) 

XLN2=XLB(JJ) 

PN1=PQN(II) 

PN2=PQN(JJ) 

IF  (XLN1.LT.XLN2)  THEN 
XLN1=XLN2 
PTEMP=PN2 
PN2=PN1 
PN1=PTEMP 
END  IF 

IXLN1=INT(XLN1) 

IPN1=INT(PN1) 

IPN2=INT(PN2) 

RADIALME=RME ( I XLNl , I PNl , I PN2 ) 
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IF  (RADIALME.EQ.O.)  THEN 

WRITE (2, *) SPIN,XLN1, PNl , PN2 , RADIALME 
END  IF 

TAMP=TAMP+ZNEW(II,  IM)  *ZNEW(JJ,  JM)  *AME*RADIALME 
END  IF 

1210  CONTINUE 

ZA=TAMP*E0*A0 

7H9  =  TIA**? 

ZKl  =  ZA2*  {  (WWX)  **3) 

ZA2  =  ZA2*(64*(PI**4)/(3*H0)) 

C  ACCOUNT  FOR  MI.=-ML  DEGENERACY: 

IF  {(XMW(IM)  .NE.O.)  .OR.  (XMW  ( JM)  .NE.  0  . )  )  ZA2=2.*ZA2 
IF  (Z;:v2.LT.O.)  WRITE  (2,  *)  IM,  JM,  ZA2 
IF(ZA2  .GE.  1000.0)  THEN 
K  =  K  +  1 

XIAMB(K)  =  XLAMBDA 
WWRI (K)  =  EM(IM) 

WWRJ(K)  =  EM(JM) 

AMP2(K)  =  ZA2 
IPQNW{K)=PQNW{IM) 

JPQNW(K)  =PQNW(JM) 

IXLW(K)=XLW(IM) 

JXLW(K)  =XLW(JM) 

IF  (EBROAD.EQ. 'U' )  THEN 
ICOUNT=INT (XINDEW(IM)  ) 

JCOUNT=INT (XINDEW(JM)  ) 

ELWIDTH (K) =EZWIDTH (ICOUNT, JCOUNT) 

ELSE  IF  (EBROAD.EQ. 'S' )  THEN 
PERTURB='N' 

NINIT=IM 

NFIN=JM 

CALL  ELECBR (EWIDTH) 

ELWIDTH (K) =EWIDTH 
ELSE  IF  (EBROAD.EQ. 'P' )  THEN 
PERTURB='Y' 

NINIT=IM 

NFIN=JM 

CALL  ELECBR (EWIDTH) 

ELWIDTH (K) =EWIDTH 
ENDIF 
END  IF 
END  IF 

1200  CONTINUE 

IF  (K.GT.ITRN)  THEN 

OPEN (31, FILE=' OUTRANGE. DAT' , STATUS= ' UNKNOWN ' ) 

WRITE (31, 1299)  K, KN 
CLOSE (31) 

ENDIF 

KH  =  KH  +  K 
AMP2SUM=0. 

C  DETERMINE  THE  UPPER  LEVEL  POPULATION  OF  A  TRANSITION: 

DO  1300  KI  =  1,K 

IF  (WWRI(KI)  .GE.  WWRJ(KI))  THEN 
WWE  =  WWRI  (KI) 

DENP=POP (IPQNW(KI)  ,  IXLW(KI) ) 

ELSE 

WWE  =  WWRJ(KI) 

DENP=POP(JPQNW(KI)  ,  JXLW(KI) ) 

END  IF 

ENERGY  =  WWE*CONST5 

DEN  =  (2.*SPIN+1) *EXP(-ENERGY/TEL) 

IF  (POPBOLTZ.EQ. 'N' )  DEN=DENP 
IF  (KN.EQ.l)  THEN 
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DELX=(XEF(1+NINC)-XEF(1) ) 

ELSE  IF  (  (NEPT-KN)  .LT.NINOTHEN 
DELX=XEF (KN) -XEF (KN-NINC) 

ELSE 

DELX=0 . 5* ( (XEF (KN) -XEF (KN-NINC) ) 

&  +(XEF(KN+NINC)-XEF{KN))) 

END  IF 

DEN  =  DEN*PF(KN) *DELX  !  WEIGHT  DENSITY  BY 

IF  (EDENS. EQ.O)  ELWIDTH (KI) =-2 .  !  MF  DISTRIB.  P(E)DE 

IF  (DEN.EQ.O.)  GOTO  1290 

WRITE(2,1301)  XLAMB(KI) ,AMP2 (KI ), DEN, ELWIDTH (KI)  ,PF(KN)  , 
&  ENERGY, IPQNW(KI) , ORB (IXLW(KI ) )  ,  JPQNW(KI)  ,  ORB (JXLW(KI)  ) 

WRITE (*, 1301)  XIiAMB(KI) ,AMP2 (KI) , DEN, ELWIDTH (KI ) , PF (KN)  , 
&  ENERGY ,  I PQNW  ( KI )  ,  ORB  ( IXLW  ( KI )  ) ,  JPQNW  ( KI )  ,  ORB  ( JXLW  ( KI )  ) 

1290  CONTINUE 

AMP2SUM=AMP2SUM+AMP2 (KI ) 

1300  CONTINUE 

WRITE(*,*)  '  END  OF  PASS:  ',KN 
1000  CONTINUE 


WRITE (2, 2000) 

WRITE(2,3000)  KH,AMP2SUM/ (1.D8) 

CLOSE (2) 

9999  CONTINUE  ^ 

STOP 
END 


SUBROUTINE  ELBAVG (EWIDTH, XSECT) 

C* ************************************************************************* 

C  * 

C  THIS  SUBROUTINE  CALCULATES  ELECTRON  WIDTHS  USING  * 

C  UNPERTURBED  WAVEFUNCTIONS  AND  ENERGY  LEVELS  WITH  * 

C  WITH  AN  ANALYTICAL  APPROXIMATION  FOR  THE  INTEGRAL  * 

C  * 

^************************************************************************** 
IMPLICIT  REAL*8  (A-H,0-Z) 

PARAMETER (C0=2.997925D+10) 

PARAMETER (IDMN=5 5)  !  MUST  BE  >  NBAS IS 

PARAMETER (INML=5 00)  !  MUST  BE  >  #  OF  M  TRANSITIONS 

PARAMETER (ITRN=12*INML)  !  MUST  >  (L+1)*INML 

COMMON/CONSTANTS /EVELOC, DEBYELN, DEBROGLN 

COMMON/ANS/PERTURB, EBROAD, NAINT 

COMMON/EZPARAM/E, PQN, XLB, IGROUP, NBASIS 

COMMON/RADIAL/RME 

COMMON/ PLASM/EDENS, ETEMP,  SPIN 

COMMON/INTEGL/WAB, B, XMEXSUM2 , XMEZSUM2 

COMMON/ I PARAM/NSTATE , NINI T , NFIN 

CHARACTER*!  PERTURB, EBROAD, NAINT 

DIMENSION  E (IDMN) ,PQN(IDMN) ,XLB(IDMN) , IGROUP (IDMN) 

DIMENSION  RME(10,20,20) 

DIMENSION  XMEXSUM2 (2, IDMN) ,XMEZSUM2 (2, IDMN) 

DIMENSION  XMW(IDMN) ,XMP(IDMN) 

EXTERNAL  F3 

C  L=1  IS  THE  INITIAL  STATE  OF  THE  TRANSITION 
C  L=2  IS  THE  FINAL  STATE  OF  THE  TRANSTION 

DO  1000  L=l,2 

IF  (L.EQ.l)  NTRANS=NINIT 
IF  (L.EQ.2)  NTRANS=NFIN 
DO  1100  MP=1, NBASIS 

XMEXSUM2 (L,MP)=0. 
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1111 

1110 

1100 

1000 


XMEZSUM2  (L,MP)=0. 

IF  (MP.NE.NTRANS  .AND. 

&  IGROUP (MP ) . EQ . IGROUP (NTRANS )  .AND . 

&  ABS(  XLB (NTRANS )-XLB(MP)  ).LE.l.  .AND. 

&  ABS(  XLB (NTRANS) -XLB (MP)  ).NE.0.)  THEN 

XLN1=XLB (NTRANS) 

XLN2=XLB (MP) 

PN1=PQN (NTRANS) 

PN2=PQN(MP) 

IF  (XLN1.LT.XLN2)  THEN 
XLN1=XLN2 
PTEMP=PN2 
PN2=PN1 
PN1=PTEMP 
ENDIF 

IXLN1=INT(XLN1) 

IPN1=INT(PN1) 

IPN2=INT(PN2) 

MLEND=INT (XLB (NTRANS ) +1 . ) 

MPLEND=INT (XLB (MP) +1 . ) 

IF  (MLEND.GE.IDMN  .OR.  MPLEND . GE . IDMN)  THEN 
WRITE (*,*)' MLEND ' , MLEND , ' MPLEND ' , MPLEND, IDMN 
ENDIF 

DO  1110  ML=1, MLEND 

XMW (ML) =XLB (NTRANS ) -FLOAT (ML) +1 . 

DO  1111  MPL=1, MPLEND 

XMP (MPL) =XLB (MP) -FLOAT (MPL) +1 . 

XXXX  =  7iBS(XMW(ML)-XMP(MPL)  ) 

IF  (XXXX.LE.l.)  THEN 
IF  (XXXX.EQ.l.)  THEN 

CALL  ANGXME (XLB (NTRANS ) , XMW (ML) , XLB (MP) , 

&  XMP(MPL) ,AME) 

CZ=2. 

XMEM=AME*RME ( IXLNl , IPNl , IPN2 ) 

XMEXSUM2 (L,MP)=XMEXSUM2 (L, MP) +CZ*XMEM**2 
ELSE  IF  (XXXX.EQ.O.)  THEN 

CALL  ANGZME (XLB (NTRANS ) , XMW (ML ) , XLB (MP ) , 

&  XMP(MPL) ,AME) 

C2=2  . 

IF  ( (XMP (MPL) .EQ. 0. ) .AND. (XMW (ML) .EQ. 0. ) ) 
&  CZ=1. 

XMEM=AME*RME  (IXLNl,  IPNl,  IPN2) 

XMEZSUM2  (L,MP)=XMEZSUM2  (L, MP) +CZ*XMEM**2 
ENDIF 
ENDIF 
CONTINUE 
CONTINUE 
ENDIF 
CONTINUE 
CONTINUE 


C  INTEGRATE  FROM  SMALL  B  TO  LARGE  B 


AA=0.0D0 

BB=DEBYELN 

CALL  QGAUS ( F3 , AA, BB , XSECT ) 

C  CALCULATION  OF  CROSS  SECTION  AND  ELECTRON  BROADENED  LINE  HALF-WIDTH 
C  IN  WAVENUMBER 

C  XSECTD=DEBROGLN**2 

EWIDTH=EDENS*EVELOC*XSECT/C0  !  WHERE’S  THE  2*PI  ? 

IF  (EWIDTH.lt. l.E-4)  EWIDTH=0 . 

RETURN 

END 
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SUBROUTINE  S2U(TD,S2C) 

Q************************************************************************** 

C  THE  FOLLOWING  SUBROUTINE  CALCULATES  THE  QUANTITY  S2 (B)  -  * 

Q************************************************************************** 

IMPLICIT  REAL*8  (A-H,0-Z) 

PARAMETER (BK=1 . 3  8  07D- 1 6 ) 

PARAMETER ( P I =3 . 1 4 15 92 65 4 D+ 0 0 ) 

PARAMETER (A0=0 . 52  9177D-08 ) 
parameter (EC0UL=1 . 6D-19) 

PARAMETER (C0=2 . 997925D+10 ) 

PARAMETER (HBAR=1. 05459D-34) 

PARAMETER (COEFF=0.5D0* {2 .DO*9.D11*AO*ECOUL**2/HBAR) **2) 

PARAMETER (IDMN=5 5)  !  MUST  BE  >  NBASIS 

PARAMETER (INML=5 00)  !  MUST  BE  >  #  OF  TRANSITIONS 

PARAMETER (ITRN=12*INML)  !  MUST  BE  >  (L+1) *INML 

COMMON/CONSTANTS/EVELOC, DEBYELN,  DEBROGLN 
COMMON/ANS/PERTURB , EBROAD , NAINT 
COMMON/EZPARAM/E, PQN,XLB, IGROUP, NBASIS 
COMMON/INTEGL/WAB, B, XMEXSUM2 , XMEZSUM2 
COMMON/ 1 PARAM/NSTATE , NINI T ,  NFIN 
CHARACTER*!  PERTURB, EBROAD, NAINT 

DIMENSION  E (IDMN) ,PQN(IDMN) ,XLB(IDMN) , IGROUP (IDMN) 

DIMENSION  XMEXSUM2 (2, IDMN) ,XMEZSUM2 (2, IDMN) 

DIMENSION  S2SUM(2) 

EXTERNAL  BESSKO, BESSKl, BESSIO, BESSIl, FI , F2 

C  L=1  IS  THE  INITIAL  STATE  OF  THE  TRANSITION 
C  L=2  IS  THE  FINAL  STATE  OF  THE  TRANSITION 

XCO=2.*PI*CO 
ZERO=O.DO 
DO  100  L  =  1,2 

IF  (L.EQ.l)  NTRANS=NINIT 
IF  (L.EQ.2)  NTRANS=NFIN 
S2SUM(L)=0. 

DO  110  MP=1, NBASIS 

IF  (XMEXSUM2 (L,MP) .NE.O.  .OR. 

&  XMEZSUM2 (L,MP) .NE.O. )  THEN 

WAB=ABS {E (MP) -E (NTRANS) ) *XCO 
IF  (NAINT. EQ. 'Y' )  THEN 

CALL  QROMB(Fl, ZERO,TD,XlT) 

CALL  QROMB(F2,ZERO,TD,X2T) 

ELSE 

AVAR=B*WAB/EVELOC 
BK0=BESSK0 (AVAR) 

IF  {BKO.LT.l.E-30)  BK0=0. 

X1T=AVAR*BK0/ (B*EVELOC) 

BK1=BESSK1 (AVAR) 

IF  (BKl.LT.l.E-30)  BK1=0. 

X2T=BK1 *WAB/EVELOC*  *  2 
ENDIF 

S2T=XMEZSUM2 (L,MP) *X1T**2+XMEXSUM2 (L,MP) *X2T**2 
S2SUM(L)=S2SUM(L)+S2T 
ENDIF 

110  CONTINUE 

S2SUM(L)=S2SUM(L) / (2 . *XLB (NTRANS) +1 . ) 

100  CONTINUE 

S2C=COEFF* (S2SUM(1)+S2SUM(2)  ) 

RETURN 

END 


FUNCTION  FI (TIME) 

C  TIME  INTEGRANDS  * 
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IMPLICIT  REAL*8  (A-H,0-Z) 

C  MUST  BE  GREATER  THAN  NBASIS  (55) 

PARAMETER ( I DMN=5 5 ) 

COMMON/CONSTANTS/EVELOC, DEBYELN, DEBROGLN 
COMMON/ INTEGL/WAB, B, XMEXSUM2 , XMEZSUM2 
DIMENSION  XMEXSUM2 (2, IDMN) , XMEZSUM2 (2, IDMN) 
FlTOP=EVELOC*TIME*SIN (WAB*TIME) 

F1B0T=SQRT ( (B**2+ (EVELOC*TIME) **2) **3) 

F1=F1T0P/F1B0T 

RETURN 

END 


FUNCTION  F2(TIME) 

IMPLICIT  REAL*8  {A-H,0-Z) 

PARAMETER (IDMN=5 5)  !  MUST  BE  >  NBASIS 

COMMON/CONSTANTS/EVELOC, DEBYELN, DEBROGLN 
COMMON/INTEGL/WAB,  B,  XMEXSUM2 ,  XMEZSUM2 
DIMENSION  XMEXSUM2 (2, IDMN) ,XMEZSUM2 (2, IDMN) 

F2TOP=B*COS  (mB*TIME) 

F2BOT=SQRT{ {B**2+(EVELOC*TIME) **2) **3) 

F2=F2TOP/F2BOT 

RETURN 

END 


FUNCTION  F3(CS) 

IMPLICIT  REAL*8  (A-H,0-Z) 

PARAMETER (IDMN=5 5)  !  MUST  BE  >  NBASIS 

COMMON/CONSTANTS/EVELOC, DEBYELN, DEBROGLN 
COMMON/INTEGL/WAB, B, XMEXSUM2 , XMEZSUM2 
DIMENSION  XMEXSUM2 (2, IDMN) ,XMEZSUM2 (2,  IDMN) 


B=CS 

C  IF  (B.LT. DEBROGLN)  THEN 

IF  (B.LE.O.ODO)  THEN 
F3  =  O.DO 
RETURN 

ELSE 

HYPO=MAX (O.DO, DEBYELN*  *  2-B*  *  2 ) 
TD=SQRT (HYPO) /EVELOC 
CALL  S2U(TD,S2C) 

S2C  =  MIN(S2C, l.DO) 

F3=S2C*B 

RETURN 

ENDIF 

END 


C 

C 

C 

C 

C 


SUBROUTINE  ELECBR (EWIDTH)  ^  ******************************** 


THIS  SUBROUTINE  CALCULATES  ELECTRON  WIDTHS  FOR  THE  SEMI-PERTURBED 
AND  FULY-PERTURBED  CASES  WITH  AN  ANALYTICAL  APPROXIMATION  FOR  THE 


INTEGRAL 

********************** 


IMPLICIT  REAL*8  (A-H,0-Z) 

PARAMETER (PI=3 . 141592654D+00) 

PARAMETER (C0=2 . 997925D+10) 

PARAMETER (IDMN=5 5)  !  MUST  BE  >  NBASIS 

PARAMETER (INML=5 00)  !  MUST  BE  >  INML 

PARAMETER (ITRN=12*INML)  !  MUST  BE  >  (L+1)*INML 
COMMON/CONSTANTS/EVELOC, DEBYELN, DEBROGLN 
COMMON/ANS /PERTURB, EBROAD, NAINT 
COMMON/ FPARAM/ZNEW, EM, PQNW, XLW,XMW, NEND 
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noon 


COMMON/ INTEGL/WAB,  B,  XMEXSUM2,  XMEZSXJM2 
COMMON/IPARAM/NSTATE,  NINIT,  NFIN 
COMMON/PLASM/EDENS , ETEMP , SPIN 
CHARACTER* 1  PERTURB , EBROAD , NAINT 

DIMENSION  2NEW(INML,INML) ,EM(INML) ,PQNW(INML) ,XLW(INML) , 

&  XMW(INML)  ,NEND(INML) 

DIMENSION  XMEXSUM2 (2, IDMN) ,XMEZSUM2 (2, IDMN) 

EXTERNAL  F4 

C  UNITS 

AA=DEBROGLN 
BB=DEBYELN 

CALL  QGAUS ( F4 , AA,  BB , XSECT ) 

XS  ECT=XSECT+PI *  DEBROGLN*  DEBROGLN 
AA=0 . ODO 
BB=DEByELN 

CALL  QGAUS (F4,AA,BB, XSECT) 

C  CALCULATION  OF  CROSS  SECTION  AND  ELECTRON  HALF-WIDTH  IN  WAVENUMBER 

C  XSECTD=P I* DEBROGLN* *2 

EWIDTH=EDENS*EVELOC*XSECT/CO 
IF  (EWIDTH.lt. l.E-4)  EWIDTH=0. 

RETURN 

END 


SUBROUTINE  S2SPBESS (TD, S2 ) 

C  THE  FOLLOWING  SOUBROUTINE  CALCULATES  THE  QUANTITY  S2 (B)  * 

Q************************************************************************** 

IMPLICIT  REAL*8  (A-H,0-Z) 

PARAMETER (PI=3. 141592 654D+00) 

PARAMETER (A0=0 . 529177D-08 ) 

PARAMETER (ECOUL=l . 6D-19) 

PARAMETER (C0=2 . 997925D+10 ) 

PARAMETER {HBAR=1 . 05459D-34 ) 

PARAMETER (COEFF=0 . SDO* (2 . D0*9 . D11*AO*ECOUL**2/HBAR) **2) 

PARAMETER ( I DMN=5 5)  !  MUST  BE  >  NBASIS 

PARAMETER (INML=5 00)  !  MUST  BE  >  #  OF  TRANSITIONS 

PARAMETER (ITRN=12*INML)  !  MUST  BE  >  (L+1)*INML 

COMMON/CONSTANTS /EVELOC, DEBYELN, DEBROGLN 
COMMON/ANS/PERTURB,  EBROAD,  NMNT 
COMMON/E2PARAM/E, PQN, XLB, IGROUP, NBASIS 
COMMON/ FPARAM/ZNEW,  EM,  PQNW,  XLW,  XMW,  NEND 
COMMON/RAD lAL/RME 

COMMON/INTEGL/WAB, B, XMEXSUM2 , XMEZSUM2 
COMMON/ I PARAM/NSTATE, NINIT, NFIN 
COMMON/PLASM/EDENS , ETEMP, SPIN 
CHARACTER*!  PERTURB, EBROAD, NAINT 

DIMENSION  E (IDMN) , PQN(IDMN) ,XLB (IDMN) , IGROUP (IDMN) 

DIMENSION  ZNEWdNML,  INML)  ,EM(INML)  ,  PQNW(INML)  ,  XLW(INML)  , 

&  XMW(INML) ,NEND(INML) 

DIMENSION  RME(10,20,20) 

DIMENSION  XMEXSUM2 (2, IDMN) ,XMEZSUM2 (2, IDMN) 

DIMENSION  S2SUM(2) 

EXTERNAL  BESSKO, BESSKl, BESSIO, BESSIl, FI, F2 

C  L=1  IS  THE  INITIAL  STATE  OF  THE  TRANSITION 
C  L=2  IS  THE  FINAL  STATE  OF  TPIE  TRANSITION 

XCO=2.*PI*CO 
ZERO=0 . ODO 
DO  1000  L=l,2 

IF  (L.EQ.l)  NTRANS=NINIT 
IF  (L.EQ.2)  NTRANS=NFIN 
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S2SUM(L)=0. 

DO  1100  M=1,NSTATE 

IF  (M.NE.NTRANS)  THEN 

C  ION-PERTURBED  STATES  AND  ENERGIES 

IF  (PERTURB. EQ. 'Y' )  THEN 

WAB=ABS (EM{NTRflNS) -EM(M) ) *XCO 
IF  (NAINT.EQ. ’Y’ )  THEN 

CALL  QR0MB(F1,ZER0,TD,X1T) 

CALL  QROMB(F2,ZERO,TD,X2T) 

ELSE 

AVAR=B  *Ti«AB  /  EVELOC 
BK0=BESSK0 (AVAR) 

IF  (BKO.LT.l.E-30)  BK0=0. 

X1T=AVAR*BK0/ (B*EVELOC) 

BK1=BESSK1 (AVAR) 

IF  (BKl.LT.l.E-30)  BK1=0. 

X2T=BK1  *WAB/EVELOC* * 2 
ENDIF 

DO  1110  II=1,NEND(NTRANS) 

IF  (ABS(ZNEW(II,NTRANS) ) .GT.0.01)  THEN 
DO  1111  JJ=1,NEND(M) 

IF  (ABS (ZNEW(JJ,M) ) .GT.0.01)  THEN 
CALL  ANGZME(XLB(II) ,XMW(NTRANS) , 

5  XLB(JJ) ,XMW(M) ,AZME) 

CALL  ANGXME (XLB (II), XMW (NTRANS ) , 

6  XLB(JJ) ,XMW(M) ,AXME) 

IF  ( (AZME.NE.O.) .OR. (AXME.NE.O.) )  THEN 
XLN1=XLB(II) 

XLN2=XLB(JJ) 

PN1=PQN(II) 

PN2=PQN(JJ) 

IF  (XLN1.LT.XLN2)  THEN 
XLN1=XLN2 
PTEMP=PN2 
PN2=PN1 
PN1=PTEMP 
ENDIF 

IXLN1=INT(XLN1) 

IPN1=INT(PN1) 

IPN2=INT(PN2) 

RADIALME=RME(IXLN1,IPN1,  IPN2) 

IF  (RADIALME.NE.O.)  THEN 

XMEZM=AZME*RADIALME*ZNEW  ( II ,  NTRANS ) 
&  *ZNEW(JJ,M) 

XMEXM=AXME*RADIALME*  ZNEW (II, NTRANS ) 

5  *ZNEW(JJ,M) 

CZ=1. 

IF  ( (XMW(M) .NE.O. )  .OR. 

6  (XMW (NTRANS) .NE.O. ) )  CZ=2 . 

S2T=  CZ* (XMEZM**2) *X1T**2 

5  +  2.* (XMEXM**2) *X2T**2 

S2SUM(L) =S2SUM(L) +S2T 

ENDIF 

ENDIF 

ENDIF 

1111  CONTINUE 

ENDIF 

1110  CONTINUE 

ELSE 

C  SEMI-PERTURBED  CASE:  UNPERTURBED  WAVEFUNCTIONS  AND  PERTURBED  ENERGIES 

CALL  ANGME  (XLW  (NTRANS )  ,  XMW  (NTRANS )  , 

6  XLW(M  ),XMW(M  ),AME) 

IF  (AME.NE.O.)  THEN 
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CALL  ANGZME  {XLW(NTRANS)  ,XMW(NTRANS)  , 

&  XLW(M)  ,XMW(M)  ,AZME) 

CALL  AWGXME  (XLW (NTRANS )  ,  XMW  (NTRANS )  , 

&  XLW(M)  ,XMW(M)  ,AXME) 

XLN1=XLW (NTRANS ) 

XLN2=XLW(M) 

PN1=PQNW( NTRANS) 

PN2=PQNW{M) 

IF  (XLN1.LT.XLN2)  THEN 
XLN1=XLN2 
PTEMP=PN2 
PN2=PN1 
PN1=PTEMP 
ENDIF 

IXLN1=INT(XLN1) 

IPN1=INT(PN1) 

IPN2=INT(PN2) 

XMEZM  =  AZME*RME{IXLN1,IPN1,IPN2) 

XMEXM  =  AXME*RME(IXLN1, IPNl, IPN2) 

WAB=ABS (EM (M) -EM (NTRANS ) ) *XCO 
IF  (NAINT.EQ. 'Y' )  THEN 

CALL  QR0MB(F1,ZER0,TD,X1T) 

CALL  QROMB(F2,ZERO,TD,X2T) 

ELSE 

AVAR=B*WAB/EVELOC 
BKO=BESSKO (AVAR) 

IF  (BKO.LT.l.E-30)  BK0=O. 

X1T=AVAR*BK0/ (B*EVELOC) 

BK1=BESSK1  (AVAR) 

IF  (BKl.LT.l.E-30)  BK1=0. 
X2T=BK1*WAB/EVEL0C**2 
ENDIF 
CZ=1. 

IF  ( (XMW(M) .NE.O.) .OR.  (XMVf (NTRANS ) .NE.O.) ) CZ=2 . 
S2T=CZ* (XMEZM**2)*X1T**2  +  2 . * (XMEXM**2) *X2T**2 
S2SUM (L) =S2SUM (L) +S2T 
ENDIF 
ENDIF 
ENDIF 

1100  CONTINUE 

1000  CONTINUE 

S2=COEFF* (S2SUM(1)+S2SUM(2) ) 

RETURN 

END 


FUNCTION  F4 (CS) 

IMPLICIT  REAL*8  (A-H,0-Z) 

PARAMETER (IDMN=5 5)  !  MOST  BE  >  NBASIS 

COMMON/CONSTANTS /EVELOC, DEBYELN, DEBROGLN 
COMMON/ INTEGL/WAB, B, XMEXSUM2, XMEZSUM2 
DIMENSION  XMEXSUM2 (2, IDMN) ,XMEZSUM2 (2,  IDMN) 


B=CS 

C  IF  (B.LE.O)  THEN 

IF  (B.LE. DEBROGLN)  THEN 
F4  =  0. 

RETURN 

ELSE 

HYPO=MAX ( 0 . DO , DEBYELN*  *  2 -B*  *  2 ) 
TD=SQRT (HYPO) /EVELOC 
CALL  S2SPBESS(TD,S2C) 

S2C  =  MIN(S2C, l.DO) 

F4=S2C*B 

RETURN 

ENDIF 

END 
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IMPLICIT  REAL*8  (A-H,0-Z) 

DELL=XL2-XL1 

DELM=XM2-XM1 


AME=0. 

IF  (DELL.EQ.l)  THEN 
IF  (DELM.EQ.l)  THEN 

AME  =  -SQRT( (XLl+XMl+l.)*(XLl+XMl+2.) 
;  /(2.0*(2.*XL1+1.)*(2.*XL1+3.) )) 

ELSE  IF  (DELM.EQ.-l.)  THEN 

AME  =  SQRT ( (XLl-XMl+1 . ) * (XLl-XMl+2 . ) 
;  /{2.0* (2.*XLl+l.)*(2.*XLl+3.) ) ) 

ELSE  IF  (DELM.EQ.O.)  THEN 

AME  =  SQRT ( (XLl-XMl+1 . ) * (XLl+XMl+1 . ) 
i  / ( (2.*XL1+1.)* (2.*XLl+3. ) ) ) 


ENDIF 

ELSE  IF  (DELL.EQ.-l- )  THEN 
IF  (DELM.EQ.l.)  THEN 

AME  =  SQRT((XL1-XM1)*(XL1-XM1-1.) 

/{2.0* (2.*XL1-1.)*(2.*XL1+1.) ) ) 
ELSE  IF  (DELM.EQ.-l.)  THEN 

AME  =  -SQRT( (XLl+XMl) * (XLl+XMl-1. ) 

,  / (2.0* (2.*XL1-1. ) * (2.*XL1+1. ) ) ) 

ELSE  IF  (DELM.EQ.O.)  THEN 

AME  =  SQRT ( (XLl+XMl) * (XLl-XMl) 

,  /((2.*XL1-1.)*(2.*XL1+1.))) 

ENDIF 

ENDIF 

RETURN 

END 


SUBROUTINE  ANGZME (XLl ,XM1 , XL2 , XM2 , AME)  ^^^^* ..******************** 

*****************************  ****************** 

C  Z-DIRECTION  COSINES  ANGULAR  MATRIX  ELEMENT  FORMULAS  FROM  CHUN 

C**L***************************************************************** 

IMPLICIT  REAL*8  (A-H,0-Z) 


DELL=XL2-XL1 

DELM=XM2-XM1 

AME=0. 

IF  (DELL.EQ.l.)  THEN 
IF  (DELM.EQ.O.)  THEN 

AME  =  SQRT{(XL1-XM1+1.)*(XL1+XM1+1.) 

;  /{ (2.*XL1+1.)*(2.*XL1+3.))) 

ENDIF 

ELSE  IF  (DELL.EQ.-l.)  THEN 
IF  (DELM.EQ.O.)  THEN 

AME  =  SQRT ( (XLl+XMl) * (XLl-XMl) 
i  /((2.*XL1-1.)*(2.*XL1+1.))) 

ENDIF 

ENDIF 

RETURN 

END 


SUBROUTINE  ANGXME (XLl, XMl , XL2 , XM2 , AME)  ^,^^^********************** 

C*******************************************************  * 

C  X-DIRECTION  COSINES  ANGULAR  MATRIX  ELEMENT  ^^************ 

^*************************************************************** 

IMPLICIT  REAL*8  (A-H,0-Z) 
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DELL=XL2-XL1 

DELM=XM2-XM1 

AME=0. 

IF  (DELL.EQ.l.)  THEN 
IF  (DELM.EQ.l.)  THEN 

AME  =  -0.5*SQRT((XLl+XMl+l.)*(XLl+XMl+2.) 
&  /{(2.*XL1+1.)*(2.*XL1+3.))) 

ELSE  IF  (DELM.EQ.-l.)  THEN 

AME  =  0.5*SQRT({XLl-XMl+l.)*{XLl-XMl+2.) 
S  /((2.*XLl+l.)*(2.*XLl+3.))) 

ENDIF 

ELSE  IF  (DELL.EQ.-l. )  THEN 
IF  (DELM.EQ.l.)  THEN 

AME  =  0.5*SQRT( (XLl-XMl)* (XLl-XMl-1.) 

5  /((2.*XL1-1.)*(2.*XL1+1.))) 
ELSE  IF  (DELM.EQ.-l.)  THEN 

AME  =  -0.5*SQRT((XL1+XM1)*(XL1+XM1-1.) 

6  /((2.*XL1-1.)*(2.*XL1+1.))) 
ENDIF 

ENDIF 

RETURN 

END 


C  FUNCTION  INTEGRATOR  FROM  NUMERICAL  RECIPES  [PRESS  ET  AL.].  * 
C  * 
C  RETURNS  AS  SS  THE  INTEGRAL  OF  THE  FXmCTION  FUNC  FROM  A  TO  B.  * 
C  INTEGRATION  IS  PERFORMED  BY  ROMBERG'S  METHOD  OF  ORDER  2K,  WHERE,  * 
C  E.G.,  K=2  IS  SIMPSON'S  RULE.  * 


SUBROUTINE  QROMB (FUNC, A, B,  SS) 


C  HERE  EPS  IS  THE  FRACTIONAL  ACCURACY  DESIRED,  AS  DETERMINED  BY  THE  * 
C  EXTRAPOLATION  ERROR  ESTIMATE;  UMAX  LIMITS  THE  TOTAL  NUMBER  OF  STEPS;  * 
C  K  IS  THE  NUMBER  OF  POINTS  USED  IN  THE  EXTRAPOLATION.  THE  S  AND  H  * 
C  PARAMETERS  STORE  THE  SUCCESSIVE  TRAPEZOIDAL  APPROXIMATIONS  * 
C  AND  THEIR  RELATIVE  STEP-SIZES.  * 


Q************************************************************************** 

IMPLICIT  REAL*8 {A-H,0“Z) 

PARAMETER  (EPS=l.E-3,  JMAX=150,  JMAXP=JMAX+1,  K=2,  KM=K-1) 

DIMENSION  S(JMAXP),  H(JMAXP) 

EXTERNAL  FUNC 
H(l)=l. 

DO  11  J=1,JMAX 

CALL  TRAPZD(FUNC,A,B,S (J) , J) 

IF  (J.GE.K)  THEN 

CALL  POLINT(H(J-KM) ,S(J-KM) ,K,0.,SS,DSS) 

IF  (ABS (DSS) .LT.EPS*ABS (SS) )  RETURN 
ENDIF 

S(J+1)=S(J) 

C  THE  FOLLOWING  IS  A  KEY  STEP.  THE  FACTOR  IS  0.25  EVEN  THOUGH  THE 
C  STEP-SIZE  IS  DECREASED  BY  ONLY  0.5.  THIS  MAKES  THE  EXTRAPOLATION 
C  A  POLYNOMIAL  IN  H**2  AS  ALLOWED  BY  EQUATION  (4.2.1),  NOT  JUST  A 
C  POLYNOMIAL  IN  H. 

H(J+1)=0.25*H(J) 

11  CONTINUE 

WRITE(*,*) J,DSS,EPS*SS 
WRITE (*,*) 'TOO  MANY  STEPS.' 

RETURN 

END 
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SUBROUTINE  TRAPZD  (FUNC,  A,  B,  S,  N)  ^*^^*^  +  4.  +  ********************* 

C  THIS  ROUTINE  COMPUTES  THE  N'TH  STAGE  OF  REFINEMENT  OF  AN  EXTENDED 

i^EZOIDAL  RULE.  FUNC  IS  INPUT  AS  THE  NAME  OF  THE  FACTION  TO  BE  * 

INTEGRATED  BETWEEN  LIMITS  A  AND  B,  ALSO  INPUT.  WHEN  CALLED  WITH  N  1, 

THE  ROUTINE  RETURNS  AS  S  THE  CRUDEST  ESTIMATE  OF  THE  INTEGRAL  OF  F(X) . 
sSseSS^cSS  WITH  H.2,3,...  (IH  THAT  SEOOBHTIAL  ORDTO  WILL  IMPROVE; 
THE  ACCURACY  OF  S  BY  7UDDING  2**(N“2)  ADDITIONAL  INTERIOR  POINTS.  ^ 

IMPLICIT  REAL*8  (A-H,0-Z) 


EXTERNAL  FUNC 
IF  (N.EQ.l)  THEN 
S=0.5* (B-A)* (FUNC  (A)+FUNC(B) ) 

C  IT  IS  THE  NUMBER  OF  POINTS  TO  BE  ADDED  ON  THE  NEXT  CALL. 


IT=1 

ELSE 

TNM=FLOAT  (IT) 

C  DEL  IS  THE  SPACING  OF  THE  POINTS  TO  BE  ADDED 

DEL= (B-A) /TNM 

X=A+0.5*DEL 

SUM=0. 

DO  11  J=1,IT 

SUM=SUM+FUNC  (X) 

X=X+DEL 

11  CONTINUE 

C  THE  FOLLOWING  REPLACES  S  BY  ITS  REFINED  VALUE. 

S=0.5*  (S+  (B-A)  *SUM/TNM) 

IT=2*IT 

END  IF 

RETURN 

END 


C 

C 

c 

c 

c 

c 


^SOBROUTI^^^POLINTm^^^^^^ 

GIVEN  ARRAYS  XA  AND  YA,  EACH  OF  LENGTH  N,  AND  GIVEN  A  VALUE  X, 

THIS  ROUTINE  RETURNS  A  VALUE  Y,  AND  AN  ERROR  ESTIMATE  DY.  ^ 

IF  P(X)  IS  THE  POLYNOMIAL  OF  DEGREE  N-1  SUCH  THAT  P(XAI)-YAI,  ^ 

1=1  ,N,  THEN  THE  RETURNED  VALUE  Y=P  (X)  . 

****;;**i*4********************************************************* 


IMPLICIT  REAL*8 (A-H, 0-Z) 
PARAMETER  (NMAX=50) 

DIMENSION  XA(N) ,YA{N) ,C (NMAX) ,D(NMAX) 


NS=1 

DIF=AES  (X-XAd)) 

DO  11  1=1, N 

DIFT=ABS (X-XA(I) ) 

IF  (DIFT.LT.DIF)  THEN 
NS=I 

DIF=DIFT 

ENDIF 

C(I)=YA(I) 

D(I)=YA{I) 

11  CONTINUE 
Y=YA(NS) 

NS=NS-1 
DO  13  M=1,N-1 
DO  12  1=1, N-M 
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HO=XA(I)-X 
HP=XA(I+M) -X 
W=C(I+1)-D{I) 

DEN=HO-HP 

IF  (DEN.EQ.O.)  PAUSE 
DEN=W/DEN 
D(I)=HP*DEN 
C(I)=HO*DEN 

12  CONTINUE 

IF  (2*NS.LT.N-M)  THEN 
DY=C{NS+1) 

ELSE 

DY=D(NS) 

NS=NS-1 

ENDIF 

Y=Y+DY 

13  CONTINUE 
RETURN 

END 


FUNCTION  BESSK0{X) 

***********************************  *********************** 
C  RETURNS  THE  MODIFIED  BESSEL  FUNCTION  K0(X)  FOR  POSITIVE  REAL  X  * 

C  EVALUATION  OF  THE  MODIFIED  BESSEL  FXWCTION  TAKEN  FROM  NUMERICAL  * 

C  RECIPES  [PRESS  ETAL.].  * 

Q************************************************************************** 


IMPLICIT  REAL*8  {A-H,0-Z) 
naTA  Pi  P4  P5  P6  P7 

&  /-0.57721566D+00^+0.42278420D+00,+0.23069756D+00, 

5  +0.34885900D-01,+0.26269800D-02,+0.10750000D-03, 

6  +0.74000000D-05/ 

DATA  Q1,Q2,Q3,Q4,Q5,Q6,Q7 

5  /+1.25331414D+00,-0.78323580D-01,+0.21895680D-01, 

6  -0. 10624 4 60D-01,+0. 58787200D-02, -0. 2515 4000D-02, 

&  +0.53208000D-03/ 

IF  (X.LE.2.0)  THEN 
y=X*X/4 • 0 

BESSK0=(-LOG(X/2.0) *BESSI0 (X) )  +  (Pl+Y* (P2+Y*  (P3+ 

&  Y*{P4+Y*{P5+Y*(P6+Y*P7)))))) 

ELSE 

Y=(2.0/X) 

BESSK0= (EXP (-X) /SORT (X) ) * (Ql+Y* (Q2+Y* (Q3+ 

&  Y*(Q4+Y*(Q5+Y*(Q6+Y*Q7)))))) 

ENDIF 

RETURN 

END 


FUNCTION  BESSKl(X) 

^************************************************************************** 
C  RETURNS  THE  MODIFIED  BESSEL  FUNCTION  K1 (X)  FOR  POSITIVE  REAL  X  * 

^************************************************************************** 
IMPLICIT  REAL*8  (A-H, O-Z) 

DATA  Pi  P2  P3  P4  P5,P6,P7 

&  /+1.00000000D+00[+0.15443144D+00,-0.67278579D+00, 

&  -0.18156897D+00,-0.19194020D-01,-0.11040400D-02, 

&  -0.46860000D-04/ 

DATA  Q1,Q2,Q3,Q4,Q5,Q6,Q7 

&  /+1.25331414D+00,+0.23498619D+00,-0.36556200D-01, 

&  +0. 15042 680D-01,-0.78035300D-02,+0.32561400D-02, 

&  -0. 68245000D-03/ 

IF  (X.LE.2.0)  THEN 
Y=X*X/4.0 

BESSK1= (LOG (X/2 .0) *BESSI1 (X) ) + ( 1 . 0/X) * (Pl+Y* (P2+ 

&  Y* (P3+Y* (P4+Y* (P5+Y* (P6+Y*P7) ) ) ) ) ) 
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ELSE 

Y=(2.0/X) 

BESSKl- (EXP (-X) /SQRT (X) ) * (Ql+Y* (Q2+Y* (Q3+ 
&  Y* {Q4+Y* (Q5+Y* (Q6+Y*Q7) ) ) ) ) ) 

ENDIF 

RETURN 

END 


C 

C 

C 


FUNCTION  BESSIO(X) 

RETURNS  THE  MODIFIED  BESSEL  FUNCTION  10 (X)  FOR  ANY  REAL  X  * 

************************************************************************** 


IMPLICIT  REAL*8  {A-H,0-Z) 

DATA  P1,P2,P3,P4,P5,P6,P7 

5  /+1.00000000D+00,+3.5156229D+00,+3.0899424D+00, 

6  +1.20674920D+00,+0.2659732D+00,+0.3607680D-01, 

&  +0.45813000D-02/ 

DATA  Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,Q9 
&  /+0.39894228D+00,+0.1328592D-01,+0.2253190D-02, 

&  -0.15756500D-02,+0.9162810D-02,-0.2057706D-01, 

&  +0.26355370D-01,-0.1647633D-01,+0.3923770D-02/ 

IF  (ABS (X) .LT.3.75)  THEN 
Y=(X/3.7S) **2 

BESSI0=P1+Y* (P2+Y* (P3+Y* (P4+Y* (P5+Y* {P6+Y*P7) ) ) ) ) 
ELSE 

AX=ABS (X) 

Y= (3. 75/AX) 

BESSI0= (EXP (AX) /SORT (AX) ) * (Ql+Y* (Q2+Y* (Q3+Y* (Q4+ 
&  Y* (Q5+Y* (Q6+Y* (Q7+Y* (Q8+Y*Q9) ))))))) 

ENDIF 

RETURN 

END 


FUNCTION  BESSIl(X) 

C************* ************************************************** *********** 

C  RETURNS  THE  MODIFIED  BESSEL  FUNCTION  II (X)  FOR  ANY  REAL  X  * 

j,* ************************************************************************* 


IMPLICIT  REAL*8  (A-H,0-Z) 

DATA  P1,P2,P3,P4,P5,P6,P7 

&  /+0. 5 0000 OOOD+00,+0. 878905 94D+00,+0. 514 988 69D+00, 

&  +0. 15084934D+00,+0.26587330D-01,+0.30153200D-02, 

&  +0.32411000D-03/ 

DATA  Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,Q9 
&  /+0.39894228D+00,-0.39880240D-01,-0.36201800D-02, 

&  +0. 1 6380100D-02,-0. 1031555 OD-01, +0.2282 9670D-01, 

5  -0.28953120D-01,+0.17876540D-01,-0.42005900D-02/ 

IF  (ABS (X) .LT.3.75)  THEN 

Y= (X/3 . 75 ) **2 

BESSI1=X* (Pl+Y* (P2+Y* (P3+Y* (P4+Y* (P5+Y* (P6+Y*P7) ) ) ) ) ) 
ELSE 

AX=ABS (X) 

Y= (3. 75/AX) 

BESSI 1= (EXP (AX) /SQRT (AX) ) * (Ql+Y* (Q2+Y* (Q3+Y* (Q4+ 

6  Y* (Q5+Y* (Q6+Y* (Q7+Y* (Q8+Y*Q9) ))))))) 

ENDIF 

RETURN 

END 


SUBROUTINE  JACOBI (A,N,NP, D,V,NROT) 

^************************************************************************** 
C  MATRIX  DIAGONAL  I ZAT I  ON  FROM  NUMERICAL  RECIPES  [PRESS  ET  AL.]  * 

C  USING  THE  JACOBI  METHOD  * 
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Q*** ********************************************************** ************* 

IMPLICIT  REAL*8  (A-H,0-Z) 

PARAMETER (NMAX=1 0 0 ) 

DIMENSION  A(NP,NP) ,D(NP) ,V{NP,NP) ,B(NMAX) ,Z (NMAX) 

DO  12  IP=1,N 
DO  11  IQ=1,N 
V(IP,IQ)=0. 

11  CONTINUE 
V(IP,IP)=1. 

12  CONTINUE 

DO  13  IP=1,N 

B(IP)=A{IP,IP) 

D(IP)=B(IP) 

Z  (IP)=0. 

13  CONTINUE 
NROT=0 

DO  24  1=1,50 
SM=0. 

DO  15  IP=1,N-1 

DO  14  IQ=IP+1,N 

SM=SM+ABS (A (IP, IQ) ) 

14  CONTINUE 

15  CONTINUE 

IF  (SM.EQ.O.)  RETURN 
IF  {I.LT.4)  THEN 

TRESH=0.2*SM/N**2 

ELSE 

TRESH=0 . 

ENDIF 

DO  22  IP=1,N-1 

DO  21  IQ=IP+1,N 

G=100.*ABS  (A(IP, IQ) ) 

IF  ((I.GT.4) .AND. (ABS (D (IP) ) +G.EQ .ABS (D (IP) ) ) 

&  .AND. (ABS (D(IQ) )+G.EQ.ABS (D(IQ) ) ) )  THEN 

A(IP, IQ)=0. 

ELSE  IF  (ABS (A(IP,IQ) ) .GT.TRESH)  THEN 
H=D(IQ)-D(IP) 

IF  (ABS(H)+G.EQ.ABS(H) )  THEN 
T=A(IP,IQ) /H 
ELSE 

THETA=0.5*H/A(IP,IQ) 

T=1 . / (ABS (THETA) +SQRT ( 1 . +THETA**2 ) ) 

IF  ( THETA.  LT. 0. )T=-T 
ENDIF 

C=1./SQRT(1.+T**2) 

S=T*C 

TAU=S/ (l.+C) 

H=T*A(IP,  IQ) 

Z(IP)=Z(IP)-H 

Z(IQ)=Z(IQ)+H 

D(IP)=D(IP)-H 

D(IQ)=D(IQ)+H 

A(IP,IQ)=0. 

DO  16  J=1,IP-1 
G=A(J,IP) 

H=A(J,IQ) 

A(J,IP)=G-S* (H+G*TAU) 

A(J, IQ)=H+S* (G-H*TAU) 

16  CONTINUE 

DO  17  J=IP+1,IQ-1 
G=A(IP, J) 

H=A(J,IQ) 

A(IP, J)=G-S* (H+G*TAU) 

A(J,IQ)=H+S* (G-H*TAU) 

17  CONTINUE 

DO  18  J=IQ+1,N 
G=A(IP, J) 
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H=A(IQ,  J) 

A(IP, J)=G-S* (H+G*TAU) 
A{IQ, J)=H+S* (G-H*TAU) 

18  CONTINUE 

DO  19  J=1,N 
G=V(J, IP) 

H=V(J,IQ) 

V(J,IP)=G-S* (H+G*TAU) 
V(J,IQ)=H+S* (G-H*TAU) 

19  CONTINUE 
NROT=NROT+l 

END  IF 

21  CONTINUE 

22  CONTINUE 

DO  23  IP=1,N 

B{IP)=B(IP)+Z(IP) 

D(IP)=B{IP) 

Z  (IP)=0. 

23  CONTINUE 

24  CONTINUE 
RETURN 
END 


C  QGAUS(FUNC,A,B,SS)  RETURNS  AS  SS  THE  INTEGRAL  OF  THE  FUNCTION,  FTOC, 
BETWEEN  A  AND  B,  BY  TEN  POINT  GUASSIAN  LEGENDRE  INTEGRATION:  THE 
FUNCTION  IS  EVALUATED  EXACTLY  TEN  TIMES  AT  INTERIOR  POINTS  IN  THE 
RANGE  OF  INTEGRATION. 


WITH  THE  LOWER  AND  UPPER  LIMITS  OF  INTEGRATION  AND  GIVEN  N,  GAULEG 
RETURNS  ARRAYS  X  AND  W  OF  LENGTH  N,  CONTAINING  THE  ABSCISSAS  AND 
WEIGHTS  OF  THE  GAUSS -LEGENDRE  N-POINT  QUADRATURE  FORMULA 


^**:ti::i^*r**:v:*:::;:;*:::r;;;7*;*;*****;*********************- 


IMPLICIT  REAL*8  (A-H,0-Z) 
COMMON/GAUSS/  X,W,N 
PARAMETER  (NN=100) 

C  DIMENSION  YY(NN) , XX (NN) 

DIMENSION  X(NN),W(NN) 
EXTERNAL  FUNC 


*** 

* 

•k 

•k 

k 

k 


k 

k 

k  k  k 


XR=B-A 

SS=0 

DO  100  J=1,N 
DX=XR*X(J) 

SS=SS+W( J) *FUNC ( (A+DX) ) 
C  XX(J)=X(J) 

C  YY(J)=FUNC{ (A+DX) ) 

100  CONTINUE 
SS=SS*XR 

C  DO  12  J=1,N 

C  WRITE(*,*)XX{J) ,YY(J) 

C12  CONTINUE 

RETURN 
END 


SUBROUTINE  GAULEG(X,W,N) 

IMPLICIT  REAL*8  (A-H,0-Z) 
COMMON/ANS/ PERTURB, EBROAD, NAINT 
CHARACTER* 1  PERTURB , EBROAD , NAINT 
DIMENSION  X{N) ,W(N) 

XINT=1 . 

IF  (NAINT. EQ. 'N' )  THEN 
N=MIN(10,N) 
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W(N)=XINT/2. 

X(N)=l.-W(N)/2. 

DO  110  1=1, N-2 

W(N-I)=W(N-I+l)/2. 

X(N-I)=X(N-I+l)-W(N-I+l)/2.-W(N-I)/2. 
110  CONTINUE 
W(1)=W(2) 

X(l)=X(2)-W{2)/2.-W(l)/2. 

ELSE 

DX=XINT/FLOAT (N) 

W(1)=DX 

X(l)=DX/2. 

DO  120  1=2, N 
W(I)=W(1) 

X(I)=X(I-l)+W(I)/2.+W(I-l)/2. 

120  CONTINUE 
ENDIF 
RETURN 
END 


if  ************************  ■*;***■/(***  ***************************  ********* 

C  THE  FOLLOWING  TWO  SUBROUTINES  CONTAIN  THE  RADIAL  MATRIX-  * 

C  ELEMENTS  FOR  OXYGEN  CALCULATED  BY  CHUN  LIN  FOR  SPIN  1  (TRIPLET)  * 

C  AND  SPIN  2  (QUINTET)  * 

C*** *********************************************************** ************ 


SUBROUTINE  RADMATXl 
IMPLICIT  REAL*8  (A-H,0-Z) 
COMMON/RADIAL/RMEl 
DIMENSION  RME1(10,20,20) 

C  THE  DATA  FORMAT  IS  RMEl (LI, PNl, PN2 ) ;  Ll-L2=+1 

C  P-S  TRANSITION: 


RME1{1,  3, 

3) 

= 

-5.69980E+00 

RMEKl,  4, 

3) 

= 

-1.32130E-01 

RME1(1,  5, 

3) 

5.70950E-03 

RMEKl,  6, 

3) 

= 

2.18900E-02 

RMEKl,  7, 

3) 

2.24800E-02 

RME1(1,  8, 

3) 

= 

2.03440E-02 

RMEKl,  9, 

3) 

1.79130E-02 

RMEl (1, 10, 

3) 

= 

1.57220E-02 

RMEl  (1, 11, 

3) 

1.38520E-02 

RMEl (1, 12, 

3) 

= 

1.22820E-02 

RMEl (1, 13, 

3) 

= 

1.09640E-02 

RMEl  (1, 14, 

3) 

= 

9.85310E-03 

RMEl  (1, 15, 

3) 

= 

8.90960E-03 

RMEKl,  3, 

4) 

4.33920E+00 

RMEKl,  4, 

4) 

-1.25200E+01 

RMEKl,  5, 

4) 

= 

-6.49010E-01 

RMEKl,  6, 

4) 

= 

-1.62430E-01 

RMEKl,  7, 

4) 

-6.06670E-02 

RME1(1,  8, 

4) 

= 

-*2.67710E-’02 

RMEKl,  9, 

4) 

= 

-1.26120E‘-02 

RMEKl,  10, 

4) 

-5.85800E-03 

RMEl (1,  11, 

4) 

-•2.35970E-‘03 

RMEl (1, 12, 

4) 

-4.47990E-04 

RMEl  (1,  13, 

4) 

6-28850E-04 

RMEKl,  14, 

4) 

= 

1.24150E-03 

RMEl (1, 15, 

4) 

= 

1.58520E~03 

RMEKl,  3, 

5) 

= 

1.10210E+00 

RMEKl,  4, 

5) 

= 

9.95550E+00 

RME1(1,  5, 

5) 

= 

“2.17500E+01 

RME1(1,  6, 

5) 

= 

~1.39390E+00 

RME1(1,  7, 

5) 

-4.24680E-01 

RMEKl,  8, 

5) 

= 

-1.97530E-01 
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RMEld,  9,  5) 
RME1(1,10,  5) 
RMEld, 11/  5) 
RMEld, 12,  5) 
RMEld, 13,  5) 
RMEld, 14,  5) 
RME1(1,15,  5) 
RME1(1,  3,  6) 
RMEld,  4,  6) 
RMEld,  5,  6) 
RMEld,  6,  6) 
RMEld,  7,  6) 
RMEld,  8,  6) 
RMEld,  9,  6) 
RMEld, 10,  6) 
RME1(1,11,  6) 
RMEld, 12,  6) 
RMEld, 13,  6) 
RMEld, 14,  6) 
RMEld, 15,  6) 
RMEld,  3,  7) 
RMEld,  4,  7) 
RMEld,  5,  7) 
RMEld,  6,  7) 
RME1(1,  7,  7) 
RME1(1,  8,  7) 
RMEld,  9,  7) 
RMEld, 10,  7) 
RMEld, 11,  7) 
RME1(1,12,  7) 
RMEld, 13,  7) 
RMEld, 14,  7) 
RMEld, 15,  7) 
RMEld,  3,  8) 
RME1(1,  4,  8) 
RMEKl,  5,  8) 
RMEld,  6,  8) 
RMEld,  7,  8) 
RMEld,  8,  8) 
RMEKl,  9,  8) 
RMEld, 10,  8) 
RMEld, 11,  8) 
RMEld, 12,  8) 
RMEld, 13,  8) 
RMEld, 14,  8) 
RMEld, 15,  8) 
RMEld,  3,  9) 
RME1(1,  4,  9) 
RMEld,  5,  9) 
RME1(1,  6,  9) 
RMEld,  7,  9) 
RME1(1,  8,  9) 
RME1(1,  9,  9) 
RME1(1,10,  9) 
RMEld, 11,  9) 
RMEld, 12,  9) 
RMEld, 13,  9) 
RMEld, 14,  9) 
RMEld, 15,  9) 
RMEld,  3,10) 
RMEKl,  4,10) 
RMEld,  5,10) 
RME1{1,  6,10) 
RMEKl,  7,10) 
RMEKl,  8,10) 
RMEKl,  9,10) 
RMEld, 10, 10) 


-1.12670E-01 

-7.25610E-02 

-5.06750E-02 

-3.74970E-02 

-2.89740E-02 

-2.31520E-02 

-1.89980E-02 

5.86310E-01 

2.29000E+00 

1.74950E+01 

-3.34100E+01 

-2.35630E+00 

-7.71360E-01 

-3.81740E-01 

-2.29910E-01 

-1.55340E-01 

-1.13150E-01 

-8.68770E-02 

-6.93560E-02 

-5.70160E-02 

3.87520E-01 

1.18020E+00 

3.80550E+00 

2.69780E+01 

-4.75060E+01 

-3.53100E+00 

-1.19830E+00 

-6.09970E-01 

-3.75860E-01 

-2.58760E-01 

-1.91440E-01 

-1.48930E-01 

-1.20200E-01 

2.84040E-01 

7.69880E-01 

1.91670E+00 

5.65600E+00 

3.84140E+01 

-6.40400E+01 

-4.91670E+00 

-1.70370E+00 

-8.80780E-01 

-5.49260E-01 

-3.81740E-01 

-2.84600E-01 

-2.22810E-01 

2.21200E-01 

5.61350E-01 

1.23580E+00 

2.79890E+00 

7.84300E+00 

5.18060E+01 

-8.30120E+01 

-6.51240E+00 

-2.28680E+00 

-1.19330E+00 

-7.46390E-01 

-5.23640E-01 

-3.92070E-01 

1.79280E-01 

4.36520E-01 

8.95540E-01 

1.78620E+00 

3.82690E+00 

1.03670E+01 

6.71580E+01 

-1.04420E+02 


RME1{1,12,10) 
RME1(1,13,10) 
RME1(1,14,10) 
RME1(1,15,10) 
RMEKl,  3,11) 
RMEKl,  4,11) 
RMEld,  5,11) 
RMEld,  6,11) 
RMEld,  7,11) 
RMEld,  8,11) 
RMEld,  9,11) 
RMEld, 10, 11) 
RMEld, 11, 11) 
RMEld, 12, 11) 
RMEld, 13, 11) 
RMEld, 14, 11) 
RMEld, 15,11) 
RMEld,  3,12) 
RMEld,  4,12) 
RMEKl,  5,12) 
RMEld,  6,12) 
RMEld,  7,12) 
RMEld,  8,12) 
RMEld,  9,12) 
RME1(1,10,12) 
RMEld, 11, 12) 
RME1(1,12,12) 
RME1(1, 13,12) 
RMEld, 14,12) 
RME1(1,15,12) 
RMEld,  3,13) 
RMEld,  4,13) 
RMEld,  5,13) 
RMEld,  6,13) 
RMEld,  7,13) 
RME1(1,  8,13) 
RMEld,  9,13) 
RMEld, 10, 13) 
RMEld, 11, 13) 
RMEld, 12, 13) 
RMEld, 13, 13) 
RMEld, 14, 13) 
RMEl  (1,  15, 13) 
RME1(1,  3,14) 
RMEld,  4,14) 
RMEld,  5,14) 
RME1(1,  6,14) 
RMEld,  7,14) 
RMEld,  8,14) 
RMEld,  9,14) 
RMEl  (1, 10, 14) 
RMEl  (1, 11, 14) 
RMEld, 12, 14) 
RMEl (1, 13, 14) 
RMEld, 14, 14) 
RMEl  (1, 15, 14) 
RMEld,  3,15) 
RMEld,  4,15) 
RME1(1,  5,15) 
RMEld,  6,15) 
RMEld,  7,15) 
RMEld,  8,15) 
RMEld,  9,15) 
RMEld, 10, 15) 
RMEld, 11, 15) 
RMEld, 12, 15) 


-8.31800E+00 
-2.94700E+00 
-l,54720E+00 
-9.75820E-01 
-6.84070E-01 
1.49490E-’01 
3.53970E-01 
6.94220E-01 
1.28650E+00 
2.42090E+00 
5.00070E+00 
1.32280E+01 
8.44680E+01 
-1.28270E+02 
-1.03330E+01 
-3.68400E+00 
-1.94200E+00 
-1.22820E+00 
1.27340E’-01 
•  2.95600E-01 
5.62180E-01 
9.93600E-01 
1.73350E+00 
3.13950E+00 
6.32030E+00 
1,64270E+01 
1.03740E+02 
-■1.54560E+02 
-1.25570E+01 
-4.49770E+00 
-2.37760E+00 
1.10300E-01 
2.52310E-01 
4.69360E-‘01 
8.02860E-01 
1.33370E+00 
2.23630E+00 
3.94190E+00 
7,78570E+00 
1.99630E+01 
1.24970E+02 
-1-83280E+02 
-1.49910E+01 
-5.38780E+00 
9.68160E-02 
2.19020E”01 
4.00780E-01 
6.69510E-01 
1.07500E+00 
1.71420E+00 
2.79450E+00 
4,82790E+00 
9.39680E+00 
2.38360E+01 
1.48160E+02 
-2,14460E+02 
-1.76330E+01 
8.59250E-02 
1.92710E-01 
3.48190E-01 
5.71410E-01 
8.94980E-01 
1.37800E+00 
2,13460E+00 
3.40800E+00 
5.79760E+00 
1.11540E+01 


RME1(1,13, 

15) 

RME1(1,14, 

15) 

RMEl  (1, 15, 

15) 

TRANSITION 

; 

RME1(2,  3, 

3) 

RME1(2,  4, 

3) 

RME1(2,  5, 

3) 

RMEl (2,  6, 

3) 

RME1(2,  7, 

3) 

RME1{2,  8, 

3) 

RME1(2,  9, 

3) 

RMEl (2,10, 

3) 

RME1(2,11, 

3) 

RME1(2,12, 

3) 

RMEl (2,13, 

3) 

RMEl  (2,14, 

3) 

RMEl (2,15, 

3) 

RME1(2,  3, 

4) 

RME1(2,  4, 

4) 

RME1(2,  5, 

4) 

RME1(2,  6, 

4) 

RME1(2,  7, 

4) 

RME1(2,  8, 

4) 

RME1(2,  9, 

4) 

RME1(2,10, 

4) 

RME1(2,11, 

4) 

RMEl (2, 12, 

4) 

RME1(2,13, 

4) 

RMEl (2,14, 

4) 

RMEl (2, 15, 

4) 

RME1(2,  3, 

5) 

RME1(2,  4, 

5) 

RME1(2,  5, 

5) 

RME1(2,  6, 

5) 

RME1(2,  7, 

5) 

RME1(2,  8, 

5) 

RMEl (2,  9, 

5) 

RMEl (2, 10, 

5) 

RME1(2,11, 

5) 

RMEl (2,12, 

5) 

RME1(2,13, 

5) 

RMEl (2,14, 

5) 

RMEl (2,15, 

5) 

RME1(2,  3, 

6) 

RME1(2,  4, 

6) 

RME1(2,  5, 

6) 

RME1(2,  6, 

6) 

RME1(2,  7, 

6) 

RME1(2,  8, 

6) 

RME1(2,  9, 

6) 

RMEl (2,10, 

6) 

RMEl  (2, 11, 

6) 

RMEl  (2, 12, 

6) 

RMEl  (2,13, 

6) 

RMEl (2, 14, 

6) 

RMEl (2, 15, 

6) 

RME1(2,  3, 

7) 

RME1(2,  4, 

7) 

RME1(2,  5, 

7) 

RMEl (2,  6, 

7) 

RMEl (2,  7, 

7) 

RME1(2,  8, 

7) 

RME1(2,  9, 

7) 

RMEl  (2, 10, 

7) 

RMEl (2, 11, 

7) 

RMEl (2, 12, 

7) 

=  2.80470E+01 
=  1.73320E+02 
=  -2.48060E+02 


-  -7.15410E+00 
=  -1.39930E+00 
=  -6.29180E-01 
=  ~3.76330E-01 
=  -2.58990E-01 
=  -1,93390E-01 
=  -1.52230E-01 
=  -1.24280E-01 
=  -1.04220E-01 
=  -8.91940E-02 
=  -7.75690E-’02 
=  -6.83390E-02 
=  -6.08530E-02 
==  8.55100E+00 
=  -1.33950E+01 
=  -2.95390E+00 
=  -1.40360E+00 
=  -8.65420E-01 
=  ~6.07120E-01 
=  -4.59440E-01 
=  -3.65270E-01 
=  -3.00580E-01 
=  -2.53700E-01 
=  ~2.18310E-01 
=  -1.90750E-01 

-  -1.68750E-01 
=  6.36840E-01 
=  1.78280E+01 
=  -2.12180E+01 
=  -4,84580E+00 
=  -2,34510E+00 
=  -1.46100E+00 
=  -1.03180E+00 
=  -•7.84600E-01 
=  -6.26200E-01 
=  -5.16990E-01 
=  -4.37600E-01 
=  -3.77540E-01 
=  -3.30670E-01 
=  2.93510E“01 
=  1.21350E+00 
=  2.96800E+01 
=  -3.06380E+01 

-  -7.08620E+00 
=  -3.45110E+00 
=  -2.15720E+00 
=  -1.52660E+00 
=  -1.16280E+00 

-  ’9.29310E-01 
=  -7.68240E-01 
=  -6.51090E->01 
=  -5.62430E-01 
=  1.85080E-01 
=  5.38970E-01 
=  1.85100E+00 
=  4.41860E+01 
=  -4.16630E+01 
=  -9.67780E+00 
=  -4.72020E+00 
=  -2.95140E+00 
=  -2.08870E+00 
=  -1.59090E+00 


RME1(2,13,  7) 
RME1(2,14,  7) 
RME1(2,15,  7) 
RME1(2,  3,  8) 
RME1(2,  4,  8) 
RME1{2,  5,  8) 
RME1{2,  6,  8) 
RME1(2,  7,  8) 
RME1(2,  8,  8) 
RME1(2,  9,  8) 
RME1(2,10,  8) 
RME1(2,11,  8) 
RME1(2,12,  8) 
RME1(2,13,  8) 
RME1(2,14,  8) 
RME1(2,15,  8) 
RME1(2,  3,  9) 
RME1(2,  4,  9) 
RME1(2,  5,  9) 
RME1(2,  6,  9) 
RME1(2,  1,  9) 
RME1(2,  8,  9) 
RME1(2,  9,  9) 
RME1{2,10,  9) 
RME1(2,11,  9) 
RME1(2,12,  9) 
RME1(2,13,  9) 
RME1{2,14,  9) 
RME1(2,15,  9) 
RME1(2,  3,10) 
RME1(2,  4,10) 
RME1(2,  5,10) 
RME1(2,  6,10) 
RME1(2,  7,10) 
RME1(2,  8,10) 
RME1(2,  9,10) 
RME1(2,10,10) 
RME1(2,11,10) 
RME1(2,12,10) 
RME1(2,13,10) 
RME1(2,14,10) 
RMEl (2, 15,10) 
RME1(2,  3,11) 
RME1(2,  4,11) 
RME1(2,  5,11) 
RME1(2,  6,11) 
RME1(2,  7,11) 
RME1(2,  8,11) 
RME1(2,  9,11) 
RMEl (2,10,11) 
RME1(2,11,11) 
RME1{2,12,11) 
RME1(2,13,11) 
RME1(2, 14,11) 
RMEl  (2, 15, 11) 
RME1(2,  3,12) 
RME1(2,  4,12) 
RME1(2,  5,12) 
RME1(2,  6,12) 
RME1{2,  7,12) 
RME1(2,  8,12) 
RMEl (2,  9,12) 
RME1{2,10,12) 
RME1(2,11,12) 
RME1(2,12,12) 
RMEl (2, 13, 12) 
RME1(2,14,12) 


-1.27170E+00 

-1.05150E+00 

-8.91480E-01 

1.32810E-01 

3.35450E-01 

7.93510E~01 

2.54910E+00 

6.13660E+01 

-5.42960E+01 

-1.26230E+01 

-6.15250E+00 

-3.84280E+00 

-2.71690E+00 

-2.06780E+00 

-1.65190E+00 

-1.36540E+00 

1.02290E-01 

2.39580E-01 

4.86770E-01 

1.05730E+00 

3.30630E+00 

8.12280E+01 

-6.85380E+01 

-1.59220E+01 

-7.74810E+00 

-4.83120E+00 

-3.41070E+00 

--2.59260E+00 

-2.06920E+00 

8.23880E-02 

1.84310E~01 

3.45340E-01 

6.39150E-01 

l,32980E+00 

4.12150E+00 

l,03770E+02 

-'8.43920E+01 

-1.95770E+01 

-9.50710E+00 

-5.91650E+00 

-4.16970E+00 

-3.16520E+00 

6.84510E-02 

1.48550E~01 

2.64870E-01 

4.50120E-01 

7.92440E-01 

1.61050E+00 

4.99410E+00 

1.29000E+02 

-1.01860E+02 

-2.35870E+01 

-1.14300E+01 

-7.09850E+00 

-4.99390E+00 

5.81860E-02 

1.23600E-01 

2.13230E-01 

3.43860E-01 

5.53800E-01 

9.46510E-01 

1.89970E+00 

5.92330E+00 

1.56920E+02 

-1.20930E+02 

-2.79520E+01 

-1.35160E+01 


PME1(2,15,12) 
RME1(2,  3,13) 
RME1(2,  4,13) 
RME1(2,  5,13) 
RME1(2,  6,13) 
RME1(2,  7,13) 
RME1(2,  8,13) 
RME1(2,  9,13) 
RME1(2,10,13) 
RMEl  (2, 11,13) 
RME1(2,12,13) 
MME1(2,13,13) 
RMEl  (2, 14, 13) 
RMEl  (2, 15, 13) 
RME1(2,  3,14) 
RME1{2,  4,14) 
RME1(2,  5,14) 
RME1(2,  6,14) 
RME1{2,  7,14) 
RME1(2,  8,14) 
RME1(2,  9,14) 
RMEl  (2, 10, 14) 
RMEl (2, 11, 14) 
RMEl  (2, 12, 14) 
RMEl (2, 13, 14) 
RMEl  (2, 14,14) 
RMEl  (2, 15, 14) 
RME1(2,  3,15) 
RME1(2,  4,15) 
RME1(2,  5,15) 
RME1(2,  6,15) 
RME1(2,  7,15) 
RME1(2,  8,15) 
RME1(2,  9,15) 
RMEl (2,10,15) 
RMEl (2, 11, 15) 
RMEl  (2, 12, 15) 
RMEl (2, 13, 15) 
RME1(2,14,15) 
RMEl  (2, 15, 15) 


-8.37730E+00 

5.03360E-02 

1.05270E-01 

1.77400E-01 

2.76250E-01 

4.21220E-01 

6.36380E-01 

1.10130E+00 

2.19680E+00 

6.90900E+00 

1.87530E+02 

-1.41620E+02 

-3.26740E+01 

-1.57660E+01 

4.41560E-02 

9.12600E-02 

1,51170E-01 

2.29610E-01 

3.37560E-01 

4.96980E-01 

7.57900E-01 

1.25680E+00 

2.50180E+00 

7.95070E+00 

2.20810E+02 

-1.63920E+02 

-3.77520E+01 

3.91790E-02 

8.02320E-02 

1.31170E-01 

1.95600E-01 

2.80130E-01 

3.97070E-01 

5.71090E-01 

8.58310E-01 

1.41300E+00 

2.81460E+00 

9.04840E+00 

2.56790E+02 

-1.87830E+02 


C  F-D  TRANSITION 
RME1{3,  4, 
RME1{3,  5, 
RMEl (3,  6, 
RMEl (3,  7, 
RME1(3,  8, 
RMEl (3,  9, 
RMEl  (3, 10, 
RME1(3,11, 
RMEl  (3, 12, 
RMEl (3, 13, 
RMEl  (3, 14, 
RMEl (3, 15, 
RME1(3,  4, 
RME1(3,  5, 
RMEl  (3,  6, 
RMEl  (3,  7, 
RME1(3,  8, 
RME1(3,  9, 
RMEl  (3, 10, 
RMEl  (3, 11, 
RMEl  (3, 12, 
RMEl (3, 13, 
RMEl  (3, 14, 
RMEl  (3, 15, 
RMEl  (3,  4, 


3)  =  1.01970E+01 

3)  =  3.32020E+00 

3)  =  1.80170E+00 

3)  =  1.19090E+00 

3)  =  8.71790E-01 

3)  =  6.78720E-01 

3)  =  5.50490E-01 

3)  =  4.59680E-01 

3)  =  3.92290E-01 

3)  =  3.40480E-01 

3)  =  2.99530E-01 

3)  =  2.66430E-01 

4)  =  -1.58900E+01 

4)  =  1.39800E+01 

4)  =  5.16890E+00 

4)  =  2.92980E+00 

4)  =  1.97770E+00 

4)  =  1.46600E+00 

4)  =  1.15120E+00 

4)  =  9.39850E-01 

4)  =  7.88960E-01 

4)  =  6.76310E-01 

4)  =  5.89260E-01 

4)  =  5.20160E-01 

5)  =  1.69840E+00 


PME1(3,  5, 

5) 

RME1(3,  6, 

5) 

RME1(3,  7, 

5) 

RME1(3,  8, 

5) 

RME1(3,  9, 

5) 

RMEl  (3, 10, 

5) 

FME1(3,11, 

5) 

RMEl (3, 12, 

5) 

RMEl (3, 13, 

5) 

RME1(3,14, 

5) 

RMEl (3, 15, 

5) 

RME1(3,  4, 

6) 

RME1(3,  5, 

6) 

RMEl (3,  6, 

6) 

RME1(3,  7, 

6) 

RME1(3,  8, 

6) 

RME1(3,  9, 

6) 

RME1(3,10, 

6) 

RMEl (3, 11, 

6) 

RMEl  (3, 12, 

6) 

RMEl  (3, 13, 

6) 

RME1(3,14, 

6) 

RMEl  (3, 15, 

6) 

RME1(3,  4, 

7) 

RME1(3,  5, 

7) 

RMEl (3,  6, 

7) 

RME1(3,  7, 

7) 

RME1(3,  8, 

7) 

RME1(3,  9, 

7) 

RMEl (3, 10, 

7) 

RMEl  (3, 11, 

7) 

RMEl (3, 12, 

7) 

RME1(3, 13, 

7) 

RME1(3, 14, 

7) 

RMEl (3, 15, 

7) 

RME1(3,  4, 

8) 

RME1(3,  5, 

8) 

RMEl (3,  6, 

8) 

RME1(3,  7, 

8) 

RME1(3,  8, 

8) 

RMEl (3,  9, 

8) 

RMEl  (3, 10, 

8) 

RMEl  (3,  11, 

8) 

RMEl  (3,  12, 

8) 

RME1(3,13, 

8) 

RME1(3, 14, 

8) 

RME1(3, 15, 

8) 

RME1(3,  4, 

9) 

RME1(3,  5, 

9) 

RMEl (3,  6, 

9) 

RME1(3,  7, 

9) 

RME1(3,  8, 

9) 

RMEl (3,  9, 

9) 

RMEl (3, 10, 

9) 

RMEl  (3,  11, 

9) 

RMEl  (3, 12, 

9) 

RMEl  (3,  13, 

9) 

RMEl (3, 14, 

9) 

RME1(3, 15, 

9) 

RME1(3,  4, 

10) 

RME1(3,  5, 

10) 

RMEl (3,  6, 

10) 

RME1(3,  7, 

10) 

RME1(3,  8, 

10) 

RME1(3,  9, 

10) 

RMEl (3, 10, 

10) 

RMEl (3, 11, 

10) 

3.00270E+01 

1,84360E+01 

7.06310E+00 

4.06580E+00 

2.76790E+00 

2.06300E+00 

1.62660E+00 

1.33230E+00 

1.12160E+00 

9.63850E-01 

8.41730E-01 

5.77150E-01 

3.73100E+00 

4.68020E+01 

2.35480E+01 

9.11450E+00 

5.27190E+00 

3.59870E+00 

2.68730E+00 

2.12220E+00 

1.74070E+00 

1.46740E+00 

1.26270E+00 

3.13170E-01 

1.28370E+00 

6.40080E+00 

•6.64540E+01 

2.93100E+01 

1.13570E+01 

6.56990E+00 

4.48460E+00 

3.34900E+00 

2.64520E+00 

2.17040E+00 

1.83040E+00 

2.05950E-01 

6.97910E-01 

2.21520E+00 

9.72160E+00 

•8.90490E+01 

3.57170E+01 

1.38040E+01 

7.96990E+00 

5.43260E+00 

4.05300E+00 

3.19920E+00 

2.62400E+00 

1.50080E-01 

4.58710E-01 

1.20440E+00 

3.37440E+00 

1.36980E+01 

■1.14620E+02 

4.27690E+01 

1.64610E+01 

9.47720E+00 

6.44660E+00 

4.80220E+00 

3.78650E+00 

1.1S470E-01 

3.33970E-01 

7.90460E-01 

1.83300E+00 

4.76130E+00 

1.83310E+01 

■1.43160E+02 

5.04630E+01 


RME1(3,12,10) 
KME1(3,13,10) 
RME1{3,14,10) 
RME1(3,15,10) 
RME1(3,  4,11) 
RME1(3,  5,11) 
RME1(3,  6,11) 
RME1(3,  7,11) 
RME1(3,  8,11) 
RME1(3,  9,11) 
RME1{3,10,11) 
RME1(3,11,11) 
RME1(3,12,11) 
RME1(3,13,11) 
RME1(3,14,11) 
PME1(3,15,11) 
RME1(3,  4,12) 
RME1{3,  5,12) 
RME1(3,  6,12) 
PME1{3,  7,12) 
RME1{3,  8,12) 
RME1{3,  9,12) 
RMEl (3, 10, 12) 
RMEl (3, 11, 12) 
RMEl (3, 12, 12) 
RMEl (3, 13, 12) 
RMEl {3, 14,12) 
RMEl (3, 15,12) 
RME1(3,  4,13) 
RME1(3,  5,13) 
RME1{3,  6,13) 
RME1(3,  7,13) 
RME1(3,  8,13) 
RME1(3,  9,13) 
RMEl (3, 10, 13) 
RMEl (3, 11, 13) 
RMEl (3, 12,13) 
RMEl (3, 13, 13) 
RMEl (3, 14, 13) 
RMEl (3, 15, 13) 
RME1(3,  4,14) 
RME1(3,  5,14) 
RME1(3,  6,14) 
RME1(3,  7,14) 
RME1(3,  8,14) 
RME1(3,  9,14) 
RMEl (3, 10, 14) 
RMEl (3, 11, 14) 
RMEl (3, 12, 14) 
RMEl {3, 13, 14) 
RMEl (3, 14, 14) 
RMEl (3, 15,14) 
RME1(3,  4,15) 
RME1(3,  5,15) 
RME1(3,  6,15) 
RME1(3,  7,15) 
RME1(3,  8,15) 
RME1(3,  9,15) 
RMEl (3, 10, 15) 
RMEl {3, 11, 15) 
RMEl (3, 12, 15) 
RMEl (3, 13, 15) 
RMEl (3, 14, 15) 
RMEl (3, 15, 15) 


1.93340E+01 

1.10950E+01 

7.52880E+00 

5.59830E+00 

9.42750E-02 

2.58990E-01 

5.74630E-01 

1.20100E+00 

2.58350E+00 

6.37600E+00 

2.36240E+01 

-1.74700E+02 

5.87990E+01 

2.24230E+01 

1.28250E+01 

8.68090E+00 

7.86350E-02 

2.09570E-01 

4.45070E-01 

8.71570E-01 

1.68970E+00 

3.45520E+00 

8.21830E+00 

2.95750E+01 

-2.09230E+02 

6.77760E+01 

2.57300E+01 

1.46680E+01 

6.70770E-02 

1.74800E-01 

3.59820E-01 

6.74080E-01 

1.22400E+00 

2.25590E+00 

4.44780E+00 

1.02880E+01 

3.61870E+01 

-2.46750E+02 

7.73940E+01 

2.92550E+01 

5.82180E-02 

1.49140E-01 

2.99950E-01 

5.44320E-01 

9.45240E-01 

1.63140E+00 

2.89920E+00 

5.56100E+00 

1.25850E+01 

4.34580E+01 

-2.87270E+02 

8.76520E+01 

5.12330E-02 

1.29500E-01 

2.55840E-01 

4.53370E-01 

7.62330E-01 

1.25790E+00 

2.09330E+00 

3.61920E+00 

6.79460E+00 

1.51090E+01 

5.13900E+01 

-3.30790E+02 


C  G-F  TRANSITION: 

RME1(4,  5,  4) 


1.77200E+01 


RME1(4,  6, 

4) 

RME1(4,  7, 

4) 

RME1(4,  8, 

4) 

RME1(4,  9, 

4) 

RMEl (4, 10, 

4) 

RMEl (4,11, 

4) 

RME1(4,12, 

4) 

RME1(4,13, 

4) 

RME1(4,14, 

4) 

RME1(4,15, 

4) 

RME1(4,  5, 

5) 

RME1(4,  6, 

5) 

RME1(4,  7, 

5) 

RME1(4,  8, 

5) 

RMEl  (4,  9, 

5) 

RMEl (4,10, 

5) 

RME1(4,11, 

5) 

RMEl (4,12, 

5) 

RME1(4,13, 

5) 

RME1(4,14, 

5) 

RME1(4,15, 

5) 

RME1(4,  5, 

6) 

RME1(4,  6, 

6) 

RME1(4,  7, 

6) 

RME1(4,  8, 

6) 

RME1(4,  9, 

6) 

RME1(4,10, 

6) 

RME1(4,11, 

6) 

RME1(4,12, 

6) 

RME1(4,13, 

6) 

RME1(4,14, 

6) 

RME1(4,15, 

6) 

RME1(4,  5, 

7) 

RME1(4,  6, 

7) 

RME1(4,  7, 

7) 

RME1(4,  8, 

7) 

RME1(4,  9, 

7) 

RMEl  (4,10, 

7) 

RME1(4,11, 

7) 

RME1(4,12, 

7) 

RME1(4,13, 

7) 

RME1(4,14, 

7) 

RME1(4,15, 

7) 

RME1(4,  5, 

8) 

RME1(4,  6, 

8) 

RME1(4,  7, 

8) 

RME1(4,  8, 

8) 

RME1(4,  9, 

8) 

RMEl (4,10, 

8) 

RMEl (4,11, 

8) 

RMEl (4,12, 

8) 

RMEl  (4,13, 

8) 

RMEl (4,14, 

8) 

RME1(4,15, 

8) 

RME1(4,  5, 

9) 

RME1(4,  6, 

9) 

RME1(4,  7, 

9) 

RME1(4,  8, 

9) 

RME1(4,  9, 

9) 

RME1(4,10, 

9) 

RME1(4,11, 

9) 

RMEl  (.4, 12, 

9) 

RME1(4,13, 

9) 

RME1(4,14, 

9) 

RMEl (4,15, 

9) 

RME1(4,  5, 

10) 

RME1(4,  6, 

10) 

=  5.25090E+00 
=  2.69850E+00 
=  1.72450E+00 
=  1.23510E+00 
=  9.47600E-01 
=  7.60920E-01 

-  6.30990E-01 
=  5.35870E-01 
=  4.63520E-01 
=  4.06800E-01 
=  -2.25000E+01 
=  2.25640E+01 
=  7.82850E+00 
=  4.26610E+00 
=  2.80620E+00 
=  2.04360E+00 
=  1.58500E+00 
=  1.28250E+00 
=  1.06970E+00 
=.  9.12640E~01 
=  7.92420E-01 
=  2.01870E+00 
=  -4.02490E+01 
=  2.81160E+01 
=  1.02940E+01 
=  5.75420E+00 
=  3.83880E+00 
=  2.82030E+00 
=  2.20050E+00 
=  1.78850E+00 
=  1.49690E+00 
=  1.28080E+00 
=  6.36100E-01 
=  4.25990E+00 
=  -6.03180E+01 
=  3.43500E+01 
=  1.28550E+01 
=  7.27030E+00 
=  4.88400E+00 
=  3.60450E+00 
=  2.82140E+00 
=  2.29880E+00 
=  1.92780E+00 
=  3.28470E-01 
=  1.38160E+00 
=  7.11540E+00 
=  -8.31380E+01 
=  4.12540E+01 
=  1.55790E+01 

-  8.85540E+00 
=  5.96740E+00 
=  4.41330E+00 
=  3.45990E+00 
=  2.82250E+00 
=  2.08880E-01 
=  7.21280E-01 
=  2.34700E+00 
=  1.06040E+01 
=  --1.08840E+02 
=  4.88210E+01 
=  1.84910E+01 
=  1.05290E+01 
=  7-10230E+00 
=  5.25620E+00 
=  4.12280E+00 
=  1.48690E“01 
=  4.60710E~01 


RME1(4,  7,10)  =  1.23320E+00 

RMElU,  8,10)  =  3.S3600E+00 

RME1(4,  9,10)  =  1.47330E+01 

RME1(4,10,10)  =  -1.37480E+02 
RMEl (4, 11/ 10)  =  5.70480E+01 

PME1(4,12,10)  =  2.16050E+01 

RME1(4,13,10)  =  1.23010E+01 

RMEl (4, 14, 10)  =  8.29600E+00 

RME1(4,15,10)  =  6.13850E+00 

RME1(4,  5,11)  =  1.13460E-01 

FME1(4/  6,11)  =  3.28540E-01 

RME1(4,  7,11)  =  7.89550E-01 

RME1(4,  8,11)  =  1.86530E+00 

RMEl  (4/  9/11)  =  4.94920E+00 

RMEl (4, 10, 11)  =  1.95060E+01 

RME1(4,11,11)  =  -1.69070E+02 
RMEl  (4, 12, 11)  =  6.59310E+01 

RME1(4,13,11)  =  2.49300E+01 

RME1(4,14,11)  =  1.41770E+01 

RMEl (4, 15, 11)  =  9.55330E+00 

RME1(4,  5,12)  =  9.07080E-02 

RME1(4,  6,12)  =  2.50890E-01 

RME1(4,  7,12)  =  5.63460E-01 

RME1(4,  8,12)  =  1.19580E+00 

RME1(4,  9,12)  =  2.61750E+00 

RMEl  (4, 10, 12)  =  6.58690E+00 

RME1(4,11,12)  =  2.49240E+01 

RME1(4,12,12)  =  -2.03650E+02 
RMEl (4, 13/ 12)  =  7.54690E+01 

RMEl (4, 14, 12)  =  2.84690E+01 

RME1(4,15,12)  =  1.61630E+01 

RME1(4,  5,13)  =  7.49670E-02 

RME1(4,  6,13)  =  2.00660E-01 

RME1(4,  7,13)  =  4.30330E-01 

RME1(4,  8,13)  =  8.53470E-01 

RMEl  (4,  9,13)  =  1.67900E+00 

RME1(4,10,13)  =  3.48950E+00 

RMEl (4, 11, 13)  =  8.44910E+00 

RME1(4, 12,13)  =  3.09880E+01 

RME1(4, 13,13)  =  -2.41200E+02 
RME1(4,14,13)  =  8.56610E+01 

RME1(4,15,13)  =  3.22250E+01 

RME1(4,  5,14)  =  6.35040E-02 

RME1(4,  6,14)  =  1.65880E-01 

RME1(4,  7,14)  =  3.44130E-01 

RME1(4,  8,14)  =  6.51630E-01 

RME1(4,  9,14)  =  1.19820E+00 

RME1(4,10,14)  =  2.23890E+00 

RME1(4,11,14)  =  4.48110E+00 

RME1(4,12,14)  =  1.05360E+01 

RME1(4,13,14)  =  3.77000E+01 

RME1(4,14,14)  =  -2.81740E+02 
RME1(4,15,14)  =  9.65060E+01 

RME1(4,  5,15)  =  5.48260E-02 

RMElU,  6,15)  =  1.40550E-01 

RME1{4,  7,15)  =  2.84430E-01 

RME1(4,  8,15)  =  5.20870E-01 

RME1(4,  9,15)  =  9.14350E-01 

RMEl  (4, 10, 15)  =  1.59710E+00 

RME1(4,11,15)  =  2.87510E+00 

RME1(4,12,15)  =  5.59200E+00 

RMEl  (4, 13, 15)  =  1.28470E+01 

RME1(4,14,15)  =  4.50600E+01 

RME1(4,15,15)  =  -3.25280E+02 

C  H-G  TRANSITION: 

RME1(5,  6,  5)  =  2.72140E+01 
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RMEl  (5, 

7, 

5) 

RMEl  (5, 

8, 

5) 

RMEl (5, 

9, 

5) 

RMEl  (5, 

10, 

5) 

RMEl  (5, 

11, 

5) 

RME1(5, 

12, 

5) 

RME1{5, 

13, 

5) 

RME1{5, 

14, 

5) 

RME1(5, 

15, 

5) 

RME1{5, 

6, 

6) 

RME1{5, 

7, 

6) 

RMEl  (5, 

8, 

6) 

RMEl  (5, 

9, 

6) 

RME1(5, 

10, 

6) 

RMEl  (5, 

11, 

6) 

RMEl  {5, 

12, 

6) 

RME1{5, 

13, 

6) 

RMEl (5, 

14, 

6) 

RMEl (5, 

15, 

6) 

RMEl (5, 

6, 

7) 

RMEl (5, 

7, 

7) 

RMEl  (5, 

8, 

7) 

RMEl  (5, 

9, 

7) 

RMEl  (5, 

10, 

7) 

RMEl  (5, 

11, 

7) 

RMEl  (5, 

12, 

7) 

RME1{5, 

13, 

7) 

RMEl {5, 

14, 

7) 

RMEl  (5, 

15, 

7) 

RMEl  {5, 

6, 

8) 

RME1(5, 

7, 

8) 

RMEl  (5, 

8, 

8) 

RMEl (5, 

9, 

8) 

RMEl {5, 

10, 

8) 

RME1(5, 

11, 

8) 

RMEl (5, 

12, 

8) 

RME1(5, 

13, 

8) 

RME1(5, 

14, 

8) 

RMEl (5, 

15, 

8) 

RME1{5, 

6, 

9) 

RME1(5, 

7, 

9) 

RMEl  (5, 

8, 

9) 

RME1(5, 

9, 

9) 

RME1(5, 

10, 

9) 

RMEKS, 

11, 

9) 

RMEl (5, 

12, 

9) 

RME1{5, 

13, 

9) 

RME1(5, 

14, 

9) 

RMEl  (5, 

15, 

9) 

RMEl  (5, 

6, 

10) 

RMEl  (5, 

7, 

10) 

RMEl  (5, 

8, 

10) 

RMEl (5, 

9, 

10) 

RMEl (5, 

10, 

10) 

RMEl (5, 

11, 

10) 

RME1(5, 

12, 

10) 

RME1{5, 

13, 

10) 

RMEl  (5, 

14, 

10) 

RME1{5, 

15, 

10) 

RMEl (5, 

6, 

11) 

RMEl (5, 

7, 

11) 

RMEl  (-5, 

8, 

11) 

RMEl (5, 

9, 

11) 

RME1(5, 

10, 

11) 

RMEl (5, 11, 

11) 

RMEl  (5, 

12, 

11) 

RMEl (5, 

13, 

11) 

7,45730E+00 

3.64220E+00 

2.24990E+00 

1.57310E+00 

1.18630E+00 

9.40500E-01 

7.72520E-01 

6.51350E-01 

5.60300E-01 

-2.98490E+01 

3.30640E+01 

1.08660E+01 

5.70590E+00 

3.65590E+00 

2.61200E+00 

1.99720E+00 

1.59880E+00 

1.32250E+00 

1.12110E+00 

2.37410E+00 

-5.14380E+01 

3.96420E+01 

1.39590E+01 

7.58760E+00 

4.95900E+00 

3.58760E+00 

2.76640E+00 

2.22800E+00 

1.85140E+00 

6.99500E-01 

4.86810E+00 

-7.49390E+01 

4.69160E+01 

1.70590E+01 

9.44250E+00 

6.24060E+00 

4.54820E+00 

3.52540E+00 

2.85010E+00 

3.44840E-01 

1.49470E+00 

7.96580E+00 

-1.01020E+02 

5.48700E+01 

2.02750E+01 

1.13330E+01 

7.53780E+00 

5.51750E+00 

4.29100E+00 

2.12130E-01 

7.50780E-01 

2.50910E+00 

1.16910E+01 

-1.29900E+02 

6.34950E+01 

2.36530E+01 

1.32910E+01 

8.87100E+00 

6.50930E+00 

1.47360E-01 

4.66180E-01 

1.27560E+00 

3,74640E+00 

1.60520E+01 

-1.61660E+02 

7.27850E+01 

2.72170E+01 


c 


I 


RME1(5,14,11) 
RMEl (5,15,11) 
RME1(5,  6,12) 
RME1(5,  7,12) 
RME1(5,  8,12) 
RME1(5,  9,12) 
RMEl  (5, 10, 12) 
RMEl (5, 11, 12) 
RMEl (5, 12, 12) 
RMEl (5, 13, 12) 
RMEl  (5, 14, 12) 
RMEl (5, 15, 12) 
RME1(5,  6,13) 
RME1(5,  7,13) 
RME1(5,  8,13) 
RME1(5,  9,13) 
RMEl (5, 10, 13) 
RME1(5,11,13) 
RMEl (5, 12, 13) 
RMEl (5,13, 13) 
RMEl (5,14,13) 
RMEl (5, 15, 13) 
RME1(5,  6,14) 
RME1(5,  7,14) 
RME1(5,  8,14) 
RME1(5,  9,14) 
RMEl  (5, 10, 14) 
RMEl (5, 11, 14) 
RMEl (5,12,14) 
RMEl (5, 13, 14) 
RMEl  (5, 14, 14) 
RMEl (5,15, 14) 
RME1(5,  6,15) 
RME1(5,  7,15) 
RME1(5,  8,15) 
RME1(5,  9,15) 
RMEl  (5, 10, 15) 
RMEl  (5, 11,15) 
RMEl  (5, 12, 15) 
RMEl (5, 13, 15) 
RMEl (5, 14, 15) 
RMEl (5, 15, 15) 

-H  TRANSITION: 


RME1(6,  7, 

6) 

RME1(6,  8, 

6) 

RME1(6,  9, 

6) 

RMEl (6, 10, 

6) 

RMEl  (6, 11, 

6) 

RME1(6,  7, 

7) 

RME1(6,  8, 

7) 

RME1(6,  9, 

7) 

RME1(6, 10, 

7) 

RMEl (6, 11, 

7) 

RME1(6,  7, 

8) 

RME1(6,  8, 

8) 

RME1(6,  9, 

8) 

RMEl (6, 10, 

8) 

RME1(6,11, 

8) 

RMEl (6, 12, 

8) 

RME1(6,  7, 

9) 

RMEl (6,  8, 

9) 

RME1(6,  9, 

9) 

RME1(6,10, 

9) 

RME1(6,11, 

9) 

RMEl (6, 12, 

9) 

RME1(6,  7, 

10) 

=  1.53330E+01 
=  1.02520E+01 
=  1.10410E-01 
=  3.25440E-01 
=  7.96860E-01 
=  1.92030E+00 
=  5.20740E+00 
=  2.10520E+01 
=  -1.96350E+02 
=  8.27370E+01 
=  3.09790E+01 
=  1.74700E+01 
=  8.70370E-02 
=  2.44490E-01 
=  5.58050E-01 
=  1.20460E+00 
=  2.68490E+00 
=  6.89240E+00 
=  2.66960E+01 
=  -2.34000E+02 
=  9.33470E+01 
=  3.49480E+01 
=  7.11510E-02 
=  1.93060E-01 
=  4.19960E-01 
=  8.45380E-01 
=  1.68920E+00 
=  3.56930E+00 
=  8.80160E+00 
=  3.29840E+01 
=  -2.746I0E+02 
=  1.04610E+02 
=  5.97550E-02 
=  1.57980E-01 
=  3.31920E-01 
=  6.36860E-01 
=  1.18710E+00 
=  2.25030E+00 
=  4.57310E+00 
=  1.09350E+01 
=  3.99170E+01 
=  -3.18190E+02 


=  3.87110E+01 
=  9.90570E+00 
=  4.61860E+00 
=  2.76000E+00 
=  2.60000E+00 
=  -3.78590E+01 
=  4.55660E+01 
=  1.42540E+01 
=  7.22410E+00 
=  4.50280E+00 
=  2.72970E+00 
=  -6.34980E+01 
=  5.31590E+01 
=  1.80360E+01 
=  9.53800E+00 
=  -6.09830E+00 
=  7.57200E-01 
=  5.47990E+00 
=  -9.05600E+01 
=  6.14650E+01 
=  2.17300E+01 
=  1.17660E+01 
=  3.55900E-01 


RMEl (6, 

8,10) 

= 

l,60020E+00 

RMEl  (6, 

9,10) 

= 

8.82050E+01 

RMEl (6, 

10,10) 

= 

-1.20000E+02 

RMEl (6, 

11,10) 

= 

7.04630E+01 

RMEl (6, 

12,10) 

= 

2.54780E+01 

RMEl  (6, 

7,11) 

= 

2.12000E-01 

RMEl  (6, 

8,11) 

= 

7.74700E-01 

RMEl  (6, 

9,11) 

= 

2.66250E+00 

RMEl (6, 

10,11) 

= 

1.27800E+01 

RMEl  (6, 

11, 11) 

-1.52120E+02 

RME1(6, 

12,11) 

= 

8.01380E+01 

RMEl (6, 

8,12) 

=; 

4.69900E-01 

RME1(6, 

9,12) 

= 

l,31310E+00 

RMEl (6, 

10,12) 

= 

3.94800E+00 

RMEl  (6, 

11, 12) 

= 

1.73870E+01 

RMEl (6, 

12,12) 

= 

~1.87060E+02 

TRANSITION: 

RMEl  (7, 

8,  7) 

= 

5.20000E+01 

RMEl  (7, 

11,  7) 

= 

5.03000E+00 

RMEl  (7, 

8,  8) 

=: 

-4.64760E+01 

RMEl (7, 

11,  8) 

= 

1.03000E+01 

RMEl  (7, 

8,11) 

= 

6.00000E-01 

RMEl  (7, 

11,11) 

= 

-1.40010E+02 

RETURN 

END 


SUBROUTINE  RADMA.TX2 
IMPLICIT  REAL*8  (A-H,0-Z) 

COMMON/RAD  I7a./RME2 
DIMENSION  RME2 (10,20,20) 

C  THE  DATA  FORMAT  IS  RME2 (LI , PNl, PN2 ) ;  Ll-L2=+1 

C  P-S  TRANSITION: 


RME2(1,  3, 

3) 

= 

-5.24460E+00 

RME2(1,  4, 

3) 

= 

-1.79310E-01 

RME2(1,  5, 

3) 

= 

-1.60130E-02 

RME2(1,  6, 

3) 

= 

8,80620E-03 

RME2(1,  7, 

3) 

= 

1.34420E-02 

RME2(1,  8, 

3) 

= 

1.35570E-02 

RME2(1,  9, 

3) 

=: 

1.25430E-02 

RME2(1,10, 

3) 

= 

1.13150E-02 

RME2 (1,11, 

3) 

= 

1.01430E-02 

RME2 (1,12, 

3) 

= 

9.09840E-03 

RME2 (1, 13, 

3) 

= 

8.18920E-03 

RME2 (1,14, 

3) 

= 

7.40360E-03 

RME2(1,15, 

3) 

= 

6.72510E-03 

RME2(1,  3, 

4) 

= 

4.25890E+00 

RME2(1,  4, 

4) 

-1.18480E+01 

RME2(1,  5, 

4) 

= 

-7.11340E-01 

RME2(1,  6, 

4) 

= 

-1.97560E-01 

RME2(1,  7, 

4) 

= 

-8.34570E-02 

RME2(1,  8, 

4) 

= 

-4.31970E-02 

RME2(1,  9, 

4) 

= 

-2.52570E“02 

RME2 (1,10, 

4) 

= 

-1.60330E-02 

RME2 (1, 11, 

4) 

-1.08030E-02 

RME2  (1, 12, 

4) 

= 

-7.61800E-03 

RME2  (1,13, 

4) 

= 

-5.56940E-03 

RME2 (1,14, 

4) 

= 

-4.19310E-03 

RME2(.1,15, 

4) 

->3.23510E-03 

RME2(1,  3, 

5) 

= 

1.04630E+00 

RME2(1,  4, 

5) 

9.78740E+00 

RME2(1,  5, 

5) 

= 

-"2.08420E+01 

RME2(1,  6, 

5) 

= 

-1.48290E+00 

RME2(1,  7, 

5) 

= 

-4.77560E~01 
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RME2(1,  8,  5) 
RME2(1,  9,  5) 
RME2(1,10,  5) 
RME2(1,11,  5) 
RME2(1,12,  5) 
RME2(1,13,  5) 
RME2(1,14,  5) 
RME2(1,15,  5) 
RME2(1,  3,  6) 
RME2(1,  4,  6) 
RME2(1,  5,  6) 
RME2(1,  6,  6) 
RME2(1,  7,  6) 
RME2(1,  8,  6) 
RME2(1,  9,  6) 
RME2(1,10,  6) 
RME2(1,11,  6) 
RME2(1,12,  6) 
PME2(1,13,  6) 
RME2(1,14,  6) 
RME2(1,15,  6) 
RME2(1,  3,  7) 
RME2(1,  4,  7) 
RME2(1,  5,  7) 
RME2(1,  6,  7) 
RME2(1,  7,  7) 
RME2(1,  8,  7) 
RME2(1,  9,  7) 
RME2(1,10,  7) 
RME2(1,11,  7) 
RME2(1,12,  7) 
RME2(1,13,  7) 
KME2(1,14,  7) 
RME2(1,15,  7) 
RME2(1,  3,  8) 
PME2(1,  4,  8) 
RME2(1,  5,  8) 
RME2(1,  6,  8) 
RME2(1,  7,  8) 
RME2(1,  8,  8) 
RME2(1,  9,  8) 
RME2(1,10,  8) 
RME2(1,11,  8) 
RME2(1,12,  8) 
RME2(1,13,  8) 
RME2(1,14,  8) 
RME2(1,15,  8) 
RME2(1,  3,  9) 
RME2(1,  4,  9) 
RME2{1,  5,  9) 
RME2(1,  6,  9) 
RME2(1,  7,  9) 
RME2(1,  8,  9) 
RME2(1,  9,  9) 
RME2(1,10,  9) 
RME2(1,11,  9) 
RME2(1,12,  9) 
RME2(1,13,  9) 
RME2(1,14,  9) 
RME2(1,15,  9) 
RME2(1,  3,10) 
RME2(1,  4,10) 
RME2(1,  5,10) 
RME2(1,  6,10) 
RME2(1,  7,10) 
RME2(1,  8,10) 
RME2(1,  9,10) 


=  -2.32710E-01 
=  -1.38370E-01 
=  -9.25230E-02 
=  -6.68360E-02 
=  -5.09760E-02 
=  -4.04690E-02 
=  -3.312S0E-02 
=  -2.77710E-02 
=  5.53900E-01 
=  2.19490E+00 
=  1.72720E+01 
=  -3.22470E+01 
=  -2.48100E+00 
=  -8.46130E-01 
=  -4.31750E-01 
=  -2.66600E-01 
=  -1.83910E-01 
=  -1.36340E-01 
=  -1.06260E-01 
=  -8.59080E-02 
=  -7.14120E-02 
=  3.65410E-01 
=  1.12670E+00 
=  3.67390E+00 
=  2.67310E+01 
=  -4.60680E+01 
=  -3.70020E+00 
=  -1.29890E+00 
=  -6.77160E-01 
=  -4.25110E-01 
=  -2.97110E-01 
=  -2.22570E-01 
=  -1.74960E-01 
=  -1.42460E-01 
=  2.67540E-01 
=  7.34010E-01 
=  1.84370E+00 
=  5.48660E+00 
=  3.81720E+01 
=  -6.23060E+01 
=  -5.13950E+00 
=  -1.83450E+00 
=  -9.67720E-01 
=  -6.12820E-01 
=  -4.31170E-01 
=  -3.24690E-01 
=  -2.56310E-01 
=  2.08180E-01 
=  5.34820E-01 
=  1.18730E+00 
=  2.70510E+00 
=  7.63340E+00 
=  5.15950E+01 
=  -8.09630E+01 
=  -6.79790E+00 
=  -2.45200E+00 
=  -1.30260E+00 
=  -8.28960E-01 
=  -5.85380E-01 
=  -4.42060E-01 
=  1.68610E-01 
=  4.15690E-01 
=  8.59870E-01 
=  1.72420E+00 
=  3.71050E+00 
=  1.01140E+01 
=  6.70020E+01 


RME2{1,10,10) 
RME2(1,11,10) 
RME2(1,12,10) 
RME2(1,13,10) 
RME2(1,14,10) 
RME2(1,15,10) 
RME2(1,  3,11) 
RME2(1,  4,11) 
RME2(1,  5,11) 
RME2(1,  6,11) 
RME2{1,  7,11) 
RME2(1,  8,11) 
RME2(1,  9,11) 
RME2 (1,10, 11) 
RME2 (1,11,11) 
RME2(1,12,11) 
RME2 (1, 13,11) 
RME2  (1, 14, 11) 
RME2  (1, 15, 11) 
RME2{1,  3,12) 
RME2(1,  4,12) 
RME2(1,  5,12) 
RME2(1,  6,12) 
RME2(1,  7,12) 
RME2(1,  8,12) 
RME2(1,  9,12) 
RME2  (1, 10, 12) 
RME2(1,11,12) 
RME2  (1,12,12) 
RME2  (1,13,12) 
RME2  (1, 14, 12) 
RME2(1,15,12) 
RME2(1,  3,13) 
RME2(1,  4,13) 
RME2(1,  5,13) 
RME2(1,  6,13) 
RME2(1,  7,13) 
RME2(1,  8,13) 
RME2(1,  9,13) 
RME2 (1, 10,13) 
RME2 (1,11,13) 
RME2(1,12,13) 
RME2(1,13,13) 
RME2(1,14,13) 
RME2 (1, 15,13) 
RME2(1,  3,14) 
RME2(1,  4,14) 
RME2(1,  5,14) 
RME2(1,  6,14) 
RME2(1,  7,14) 
KME2(1,  8,14) 
RME2(1,  9,14) 
RME2 (1,10,14) 
RME2 (1,11,14) 
RME2 (1,12,14) 
RME2  (1, 13, 14) 
RME2  (1, 14,14) 
RME2  (1,15,14) 
RME2(1,  3,15) 
RME2(1,  4,15) 
RME2(1,  5,15) 
RME2(1,  6,15) 
RME2(1,  7,15) 
R!yiE2(l,  8,15) 
RME2(1,  9,15) 
RME2(1,10,15) 
RME2(1,11,15) 


-1.02040E+02 
-8. 67500E+00 
-3.15090E+00 
-1.68120E+00 
-1.07310E+00 
-7.59340E-01 
1.40520E--01 
3.36950E-01 
6.66340E-01 
l,24110E+00 
2.34420E+00 
4.85990E+00 
1.29300E+01 
8.43930E+01 
-1.25530E+02 
-1.07700E+01 
-3.93070E+00 
-2.10320E+00 
-'1.34480E+00 
1.19640E-01 
2.81290E-01 
5.39460E-01 
9.58220E-01 
1.67760E+00 
3.04680E+00 
6.15290E+00 
1.60790E+01 
1.03770E+02 
-1.51450E+02 
-1.30840E+01 
-4.79150E+00 
~2,56850E+00 
1.03580E-01 
2.40030E-’01 
4.50290E-01 
7.74100E-01 
1.29030E+00 
2.16880E+00 
3.83170E+00 
7.58960E+00 
1.95630E+01 
1.25130E+02 
-1.79780E+02 
-1.56160E+01 
-5,73290E+00 
9.08890E-02 
2.08310E-01 
3.84420E-01 
6.45420E-01 
1.03970E+00 
1.66190E+00 
2.71450E+00 
4.69900E+00 
9.16990E+00 
2.33810E+01 
1.48480E+02 
“2,10530E+02 
-1.83650E+01 
8.06370E-02 
1.83240E-'01 
3.33920E-01 
5.50760E-01 
8.65480E-01 
1.33570E+00 
2.07270E+00 
3.31450E+00 
5.64840E+00 


RME2(1,12, 

15) 

RME2 (1,13, 

15) 

RME2(1,14, 

15) 

RME2(1,15, 

15) 

TRANSITION 

; 

RME2(2,  3, 

3) 

RME2(2,  4, 

3) 

RME2(2,  5, 

3) 

RME2(2,  6, 

3) 

RME2(2,  7, 

3) 

RME2(2,  8, 

3) 

RME2(2,  9, 

3) 

RME2 (2,10, 

3) 

RME2(2,11, 

3) 

PME2 (2,12, 

3) 

RME2 (2, 13, 

3) 

RME2 (2, 14, 

3) 

RME2  (2,15, 

3) 

RME2(2,  3, 

4) 

FME2(2,  4, 

4) 

RME2(2,  5, 

4) 

RME2(2,  6, 

4) 

RME2(2,  7, 

4) 

RME2(2,  8, 

4) 

RME2(2,  9, 

4) 

RME2 (2,10, 

4) 

RME2(2,11, 

4) 

RME2(2,12, 

4) 

RME2  (2, 13, 

4) 

RME2 (2, 14, 

4) 

RME2  (2, 15, 

4) 

RME2(2,  3, 

5) 

RME2(2,  4, 

5) 

RME2(2,  5, 

5) 

RME2(2,  6, 

5) 

RME2(2,  7, 

5) 

RME2(2,  8, 

5) 

RME2(2,  9, 

5) 

RME2 (2,10, 

5) 

RME2 (2,11, 

5) 

RME2 (2,12, 

5) 

RME2 (2, 13, 

5) 

RME2 (2, 14, 

5) 

RME2 (2, 15, 

5) 

RME2(2,  3, 

6) 

RME2(2,  4, 

6) 

RME2(2,  5, 

6) 

RME2(2,  6, 

6) 

RME2(2,  7, 

6) 

RME2(2,  8, 

6) 

RME2(2,  9, 

6) 

RME2 (2, 10, 

6) 

RME2  (2, 11, 

6) 

RME2(2,12, 

6) 

RME2(2,13, 

6) 

RME2 (2,14, 

6) 

RME2 (2,15, 

6) 

RME2(2,  3, 

7) 

RME2(2,  4, 

7) 

RME2(2,  5, 

7) 

RME2(-2,  6, 

7) 

RME2(2,  7, 

7) 

RME2(2,  8, 

7) 

RME2(2,  9, 

7) 

RME2 (2,10, 

7) 

RME2 (2,11, 

7) 

=  1.08940E+01 
=  2.75330E+01 
=  1.73810E+02 
=  -2.43700E+02 


=  -6,67490E+00 
=  -1.50350E+00 
=  -7.13760E~‘01 
=  -4.39720E-01 
=  -3.08170E-01 
=  -2-32920E-01 
=  -1.84880E~01 
=  -1.51870E-01 
==  -1.27930E-01 
=  -1.09870E-01 
=  -9.58090E-02 
=  -8.45900E’02 
=  -7.54550E-02 
=  8.83250E+00 
:=  -1.23150E+01 
=  -3,09460E+00 
=  -1.54110E+00 
=  -9.74390E~01 
=  -6.94260E-01 
=  -5.30890E-01 
=  -4.25190E-01 
=  -3.51780E~01 
=  -2.98110E-01 
=  ~2.57340E-01 
=  -2.25420E-01 
=  -1.99810E-01 
=  3.74890E-01 
=  1.84220E+01 
=  -1.93880E+01 
=  -5.00390E+00 
=  -2.52640E+00 
=  -’1.60990E+00 
=  -1.15300E+00 
=  -8.85250E-01 
=  -7.11370E-01 
=  -5.90290E-01 
=  -5.01590E-01 
=  -4.34060E-01 
=  -3.81090E-01 
=  1.70570E-01 
=  6.71120E-01 
=  3.06760E+01 
=  -‘2.79070E+01 
=  -7.25040E+00 
=  -3.67240E+00 
=  -2.34390E+00 
=  -1.68070E+00 
=  -1.29160E+00 
=  -1.03900E+00 
=  -8,63070E-01 
=  -7.34210E-01 
=  -6.36110E-01 
=  1.08290E-01 
=  2.88660E-01 
=  9.46780E-01 
=  4.56730E+01 
=  -3.78740E+01 
=  -9.84080E+00 
=  -4.98080E+00 
=  -3.17610E+00 
=  -2.27570E+00 


RME2(2,12,  7) 
RME2(2,13,  7) 
RME2(2,14,  7) 
RME2(2,15,  7) 
RME2(2,  3,  8) 
RME2(2,  4,  8) 
RME2(2,  5,  8) 
RME2(2,  6,  8) 
RME2(2,  1,  8) 
RME2(2,  8,  8) 
RME2(2,  9,  8) 
RME2(2,10,  8) 
RME2(2,11,  8) 
RME2(2,12,  8) 
RME2(2,13,  8) 
RME2(2,14,  8) 
RME2(2,15,  8) 
RME2(2,  3,  9) 
RME2(2,  4,  9) 
RME2(2,  5,  9) 
RME2(2,  6,  9) 
RME2(2,  1,  9) 
RME2(2,  8,  9) 
RME2(2,  9,  9) 
RME2(2,10,  9) 
RME2(2,11,  9) 
RME2(2,12,  9) 
RME2{2,13,  9) 
RME2{2,14,  9) 
RME2{2,15,  9) 
RME2(2,  3,10) 
RME2{2,  4,10) 
RME2(2,  5,10) 
RME2(2,  6,10) 
RME2{2,  7,10) 
RME2(2,  8,10) 
RME2(2,  9,10) 
RME2(2,10,10) 
RME2(2,11,10) 
RME2{2,12,10) 
RME2(2,13,10) 
RME2(2,14,10) 
RME2 (2,15,10) 
RME2(2,  3,11) 
RME2(2,  4,11) 
RME2(2,  5,11) 
RME2(2,  6,11) 
RME2(2,  7,11) 
RME2(2,  8,11) 
RME2{2,  9,11) 
RME2(2,10,11) 
RME2(2,11,11) 
RME2(2,12,11) 
RME2(2,13,11) 
RME2(2,14,11) 
RME2(2,15,11) 
RME2(2,  3,12) 
RME2{2,  4,12) 
RME2(2,  5,12) 
RME2(2,  6,12) 
RME2(2,  7,12) 
RME2(2,  8,12) 
RME2(2,  9,12) 
RME2 (2,10, 12) 
RME2(2,11,12) 
RME2(2,12,12) 
RME2(2,13,12) 


-1.74820E+00 
-1.40600E+00 
-1.16810E+00 
-9.93930E-01 
7.81850E-02 
1.80720E-01 
3.82470E-01 
1.19770E+00 
6.34350E+01 
-4-92930E+01 
-1.27780E+01 
-6.45260E+00 
-4.10640E+00 
-2.93770E+00 
-2.25410E+00 
-1.81160E+00 
-1.50420E+00 
6.04820E-02 
1.30120E-01 
2.35240E-01 
4.50580E-01 
1.42150E+00 
8.39680E+01 
-6.21630E+01 
-1.60640E+01 
-8.08850E+00 
-5.13510E+00 
“3, 66650E+00 
-2.80910E+00 
-2.25510E+00 
4,88670E-02 
1.00770E-01 
1-68540E~01 
2.71170E-01 
4.92210E-01 
1.61650E+00 
1.07280E+02 
-7.64840E+01 
-l.'96990E+01 
~9.88900E+00 
-6.26210E+00 
-4.46200E+00 
-3.41300E+00 
4.06920E~02 
8.16280E-02 
1.30450E-01 
1.92990E-01 
2.88240E~01 
5.06950E*-01 
1.78180E+00 
1.33360E+02 
“9.22580E+01 
-2.36840E+01 
-1.18540E+01 
-7.48770E+00 
-5.32410E+00 
3.46460E-02 
6.81820E-02 
1.05800E-01 
1.49170E-01 
2.03410E-01 
2.86380E-01 
4.94570E-01 
1.91690E+00 
1.62220E+02 
“1.09480E+02 
-2.80190E+01 


C  F 


FME2(2,14,12) 
RME2(2,15,12) 
RME2(2,  3,13) 
RME2(2,  4,13) 
RME2(2,  5,13) 
RME2(2,  6,13) 
RME2(2,  7,13) 
KME2(2,  8,13) 
RME2(2,  9,13) 
RME2(2,10,13) 
RME2(2,11,13) 
RME2(2,12,13) 
RME2(2,13,13) 
RME2 (2,14, 13) 
RME2(2,15,13) 
PME2(2,  3,14) 
BME2(2,  4,14) 
RME2(2,  5,14) 
RME2(2,  6,14) 
RME2(2,  7,14) 
RME2(2,  8,14) 
RME2(2,  9,14) 
RME2 (2, 10,14) 
KME2 (2,11,14) 
RME2  (2, 12, 14) 
RME2(2,13,14) 
RME2 (2, 14,14) 
RME2(2,15,14) 
RME2(2,  3,15) 
RME2(2,  4,15) 
FME2(2,  5,15) 
KME2(2,  6,15) 
RME2(2,  7,15) 
RME2(2,  8,15) 
RME2(2,  9,15) 
RME2(2,10,15) 
RME2(2,11,15) 
KME2 (2, 12, 15) 
RME2(2,13,15) 
RME2  (2, 14, 15) 
RME2(2,15,15) 

-D  TRANSITION: 


RME2(3, 

4, 

3) 

RME2(3, 

5, 

3) 

RME2(3, 

6, 

3) 

RME2 (3, 

7, 

3) 

RME2 (3, 

8, 

3) 

RME2 (3, 

9, 

3) 

RME2 (3, 

10, 

3) 

RME2 (3, 

11, 

3) 

RME2 (3, 

12, 

3) 

RME2 (3, 

13, 

3) 

RME2 (3, 

14, 

3) 

RME2 (3, 

15, 

3) 

RME2 (3, 

4, 

4) 

RME2 (3, 

5, 

4) 

RME2 (3, 

6, 

4) 

RME2 (3, 

7, 

4) 

RME2 (3, 

8, 

4) 

RME2 (3, 

9/ 

4) 

RME2 (3, 

10, 

4) 

RME2  (3, 

11, 

4) 

RME2 (3, 

12, 

4) 

RME2 (3, 

13, 

4) 

RME2 (3, 

14, 

4) 

RME2 (3, 

15, 

4) 

=  -1.39850E+01 
=  -8.81190E+00 
=  3.00080E-02 
=  5.82390E-02 
=  8.85420E-02 
=  1.21070E-01 
=  1.56940E-01 
=  1.99850E-01 
=  2.65580E-01 
=  4.54940E-01 
=  2.02130E+00 
=  1.93860E+02 
=  -1.28160E+02 
=  -3.27050E+01 
=  -1.62800E+01 
=  2.63480E-02 
=  5.06040E-02 
=  7.58010E-02 
=  1.01480E-01 
=  1.27460E-01 
=  1.53850E-01 
=  1.82390E-01 
=  2.25870E-01 
=  3.87980E-01 
=  2.09480E+00 
=  2.28270E+02 
=  -1.48290E+02 
=  -3.77420E+01 
=  2.33940E-02 
=  4.45690E-02 
=  6.60190E-02 
=  8.70490E-02 
=  1.07030E-01 
=  1.25090E-01 
=  1.40020E-01 
=  1.51100E-01 
=  1.67250E-01 
=  2.93620E-01 
=  2.13700E+00 
=  2.65460E+02 
=  -1.69870E+02 


=  1.00470E+01 
=  3.32660E+00 
=  1.81760E+00 
=  1.20590E+00 
=  8.84760E-01 
=  6.89960E-01 
=  5.60120E-01 
=  4.68080E-01 
=  3.99700E-01 
=  3.47070E-01 
=  3.05430E-01 
=  2.71760E-01 
=  -1.59620E+01 
=  1.35960E+01 
=  5.12770E+00 
=  2.92940E+00 
=  1.98590E+00 
=  1.47600E+00 
=  1.16110E+00 
=  9.49110E-01 
=  7.97480E-01 
=  6.84100E-01 
=  5.96350E-01 
=  5.26690E-01 


RME2 (3, 

4, 

5) 

RME2  (3, 

5, 

5) 

RME2  (3, 

6, 

5) 

RME2 (3, 

7, 

5) 

RME2  {3, 

8, 

5) 

RME2  (3, 

9, 

5) 

RME2  (3, 

10, 

5) 

RME2  (3, 

11, 

5) 

RME2  {3, 

12, 

5) 

RME2  (3, 

13, 

5) 

BME2  (3, 

14, 

5) 

RME2  (3, 

15, 

5) 

RME2 {3, 

4, 

6) 

RME2 (3, 

5, 

6) 

RME2  (3, 

6, 

6) 

RME2 (3, 

7, 

6) 

FME2  (3, 

8, 

6) 

RME2  (3, 

9, 

6) 

RME2 (3, 

10, 

6) 

RME2  (3, 

11, 

6) 

RME2 (3, 

12, 

6) 

RME2  (3, 

13, 

6) 

RME2  (3, 

14, 

6) 

RME2 (3, 

15, 

6) 

RME2  (3, 

4, 

7) 

RME2 (3, 

5, 

7) 

RME2 (3, 

6, 

7) 

RME2  (3, 

7, 

7) 

RME2  (3, 

8, 

7) 

RME2 (3, 

9, 

7) 

RME2 (3, 

10, 

7) 

RME2 (3, 

11, 

7) 

RME2  (3, 

12, 

7) 

BME2  (3, 

13, 

7) 

KME2 (3, 

14, 

7) 

RME2 (3, 

15, 

7) 

RME2  (3, 

4, 

8) 

RME2  (3, 

5, 

8) 

RME2  (3, 

6, 

8) 

RME2  (3, 

7, 

8) 

RME2  (3, 

8, 

8) 

RME2  (3, 

9, 

8) 

RME2  (3, 

10, 

8) 

RME2 (3, 

11, 

8) 

RME2  (3, 

12, 

8) 

RME2  (3, 

13, 

8) 

RME2 (3, 

14, 

8) 

RME2  (3, 

15, 

8) 

RME2  (3, 

4, 

9) 

RME2  (3, 

5, 

9) 

RME2  (3, 

6, 

9) 

RME2 (3, 

7, 

9) 

RME2  (3, 

8, 

9) 

RME2  (3, 

9, 

9) 

RME2 (3, 

10, 

9) 

RME2  (3, 

11, 

9) 

RME2 (3, 

12, 

9) 

FME2 (3, 

13, 

9) 

RME2  (3, 

14, 

9) 

RME2 (3, 

15, 

9) 

RME2  (3, 

4, 

10) 

RME2  (3, 

5, 

10) 

RME2  (3, 

6, 

10) 

RME2  (3, 

7, 

10) 

RME2  {3, 

8, 

10) 

RME2  {3, 

9, 

10) 

RME2  (3, 

10, 

10) 

1.86750E+00 

3-01440E+01 

1.77680E+01 

6.95340E+00 

4.06320E+00 

2.76020E+00 

2.06310E+00 

1.62990E+00 

1.33690E+00 

1.12660E+00 

9.68940E-'01 

8.46710E-01 

6.31830E-01 

4.09330E+00 

4.69590E+01 

2.25510E+01 

8.92190E+00 

5.20480E+00 

3.56960E+00 

2.67360E+00 

2.11560E+00 

1.73790E+00 

1.46670E+00 

1.26320E+00 

3.43270E-01 

1.39640E+00 

7.00710E+00 

6.66460E+01 

2.79380E+01 

1.10680E+01 

6.45870E+00 

4.42980E+00 

3.31820E+00 

2.62630E+00 

2.15820E+00 

1.82220E+00 

2.26100E-01 

7,58660E”01 

2.39860E+00 

1.06220E+01 

8.92730E+01 

3.39250E+01 

1.34070E+01 

7.80860E+00 

5.34830E+00 

4.00240E+00 

3.16600E+00 

2,60090E+00 

1.64990E-01 

4.98900E-01 

1.30170E+00 

3,64100E+00 

1.49420E+01 

1.14870E+02 

4.05100E+01 

1.59450E+01 

9.26000E+00 

6.32920E+00 

4.72930E+00 

3,73700E+00 

1.28170E-01 

3.63470E-01 

8.54190E-’01 

1.97270E+00 

5.12350E+00 

1.99690E+01 

■1.43440E+02 


PME2  (3, 11,10) 
RME2(3,12,10) 
RME2(3,13,10) 
RME2{3,14,10) 
RME2(3,15,10) 
FME2{3,  4,11) 
RME2(3,  5,11) 
RME2(3,  6,11) 
RME2(3,  7,11) 
RME2(3,  8,11) 
RME2(3,  9,11) 
RME2(3,10,11) 
RME2(3,11,11) 
RME2(3,12,11) 
RME2{3,13,11) 
RME2(3,14,11) 
RME2(3,15,11) 
RME2{3,  4,12) 
RME2(3,  5,12) 
RME2(3,  6,12) 
RME2(3,  7,12) 
RME2(3,  8,12) 
RME2(3,  9,12) 
RME2(3,10,12) 
RME2(3,11,12) 
RME2(3,12,12) 
RME2(3,13,12) 
RME2 (3, 14,12) 
RME2  (3, 15, 12) 
RME2(3,  4,13) 
RME2(3,  5,13) 
RME2(3,  6,13) 
RME2(3,  7,13) 
RME2(3,  8,13) 
KME2{3,  9,13) 
RME2(3,10,13) 
RME2(3,11,13) 
RME2(3,12,13) 
RME2 (3, 13,13) 
RME2(3,14,13) 
RME2  (3, 15, 13) 
RME2(3,  4,14) 
RME2(3,  5,14) 
RME2(3,  6,14) 
RME2(3,  7,14) 
RME2(3,  8,14) 
RME2{3,  9,14) 
RME2(3,10,14) 
RME2(3,11,14) 
RME2(3,12,14) 
RME2(3,13,14) 
RME2(3,14,14) 
RME2  (3, 15, 14) 
RME2(3,  4,15) 
RME2(3,  5,15) 
RME2(3,  6,15) 
RME2(3,  7,15) 
RME2(3,  8,15) 
RME2(3,  9,15) 
RME2(3,10,15) 
RME2(3,11,15) 
F1ME2  (3, 12,15) 
RME2(3,13,15) 
RME2(3,14,15) 
RME2{3,15,15) 


4.76890E+01 

1.86850E+01 

1.08160E+01 

7.37490E+00 

5.50090E+00 

1.03830E-01 

2.82060E-01 

6.21120E-01 

1.29170E+00 

2.77120E+00 

6.84600E+00 

2.57040E+01 

-1.75010E+02 

5.54640E+01 

2.16290E+01 

1.24780E+01 

8.48710E+00 

8.66610E-02 

2.28350E-01 

4.81260E-01 

9.37350E-01 

1.81070E+00 

3.69650E+00 

8.80810E+00 

3.21470E+01 

-2.09560E+02 

6.38340E+01 

2.47800E+01 

1.42490E+01 

7.39600E-02 

1.90550E-01 

3.89200E-01 

7.25070E-01 

1.31140E+00 

2.41050E+00 

4.74830E+00 

l.lOlOOE+01 

3.92980E+01 

-2.47100E+02 

7.27980E+01 

2.81370E+01 

6.42180E-02 

1.62640E-01 

3.24540E-01 

5.85630E-01 

1.01270E+00 

1.74250E+00 

3.09060E+00 

5.92610E+00 

1.34500E+01 

4.71580E+01 

-2.87640E+02 

8.23550E+01 

5.65310E-02 

1.41270E-01 

2.76900E-01 

4.87880E-01 

8.16790E-01 

1.34340E+00 

2.23010E+00 

3.85060E+00 

7.22970E+00 

1.61200E+01 

5.57270E+01 

-3.31180E+02 


C  G-F  TRANSITION: 


RME2(4,  5, 

4) 

RME2(4,  6, 

4) 

RME2(4,  7, 

4) 

RME2{4,  8, 

4) 

RME2(4,  9, 

4) 

RME2 (4,10, 

4) 

RME2 (4,11, 

4) 

RME2 (4,12, 

4) 

PME2 (4,13, 

4) 

RME2 (4,14, 

4) 

RME2(4,15, 

4) 

RME2(4,  5, 

5) 

RME2(4,  6, 

5) 

RME2(4,  7, 

5) 

RME2(4,  8, 

5) 

RME2(4,  9, 

5) 

RME2 (4, 10, 

5) 

RME2  (4, 11, 

5) 

RME2 (4, 12, 

5) 

RME2 (4, 13, 

5) 

RME2 (4,14, 

5) 

RME2 (4, 15, 

5) 

RME2(4,  5, 

6) 

RME2(4,  6, 

6) 

RME2(4,  7, 

6) 

P»IE2(4,  8, 

6) 

RME2(4,  9, 

6) 

RME2 (4,10, 

6) 

RME2 (4,11, 

6) 

RME2 (4,12, 

6) 

RME2 (4, 13, 

6) 

RME2 (4,14, 

6) 

RME2  (4,15, 

6) 

RME2(4,  5, 

7) 

RME2(4,  6, 

7) 

RME2(4,  7, 

7) 

RME2(4,  8, 

7) 

RME2(4,  9, 

7) 

PME2 (4,10, 

7) 

RME2 (4,11, 

7) 

RME2 (4,12, 

7) 

RME2 (4,13, 

7) 

RME2 (4,14, 

7) 

RME2 (4,15, 

7) 

RME2(4,  5, 

8) 

RME2(4,  6, 

8) 

RME2(4,  7, 

8) 

RME2(4,  8, 

8) 

RME2(4,  9, 

8) 

RME2(4,10, 

8) 

RME2(4,11, 

8) 

RME2 (4,12, 

8) 

RME2(4,13, 

8) 

RME2(4,14, 

8) 

KME2 (4,15, 

8) 

RME2(4,  5, 

9) 

RME2(4,  6, 

9) 

RME2(4,  7, 

9) 

RME2(4,  8, 

9) 

RME2(4,  9, 

9) 

RME2 (4,10, 

9) 

RME2  (.4, 11, 

9) 

RME2 (4,12, 

9) 

RME2(4,13, 

9) 

RME2 (4,14, 

9) 

RME2 (4,15, 

9) 

RME2(4,  5, 

10) 

=  1.77190E+01 
=  5.25110E+00 
=  2.69870E-f00 
=  1.72470E+00 
=  1.23530E+00 
=  9.47740E-01 
=  7.61030E-01 
=  6.31090E-01 
=  5.35970E-01 
=  4-63600E-01 
=  4.06880E--01 
=  -2.25010E+01 
=  2.25600E+01 
=  7.82840E+00 
=  4.26630E+00 
=  2.80640E+00 
=  2.04380E+00 
=  1.58520E+00 
=  1.28270E+00 
=.  1.06980E+00 
=  9.12770E-01 
=  7.92540E-01 
=  2.02010E+00 
=  -4.02500E+01 
=  2.81090E+01 
=  1.02930E+01 
=  5.75420E+00 
=  3.83890E+00 
=  2.82050E+00 
=  2.20070E+00 
=  1.78870E+00 
=  1.49710E+00 
=  1.28090E+00 
=  6.36560E-01 
=  4.26300E+00 
=  -6.03200E+01 
=  3.43410E+01 
=  1.28540E+01 
=  7,27010E+00 
=  4.88400E+00 
=  3.60460E+00 
=  2.82160E+00 
=  2.29890E+00 
==  1.92800E+00 
=  3.28730E-01 
=  l,38260E+00 
=  7.12070E+00 
=  -8.31410E+01 
=  4.12410E+01 
=  1,55760E+01 
=  8.85480E+00 
=  5.96720E+00 
=  4.41330E+00 
=  3.46000E+00 
=  2.82250E+00 
=  2.09060E”01 
=  7.21800E-01 
=  2.34870E+00 
=  1.06120E+01 
=  “1.08840E+02 
=  4.88040E+01 
=  1.84880E+01 
=  1.05280E+01 
=  7.10180E+00 
=  5.25600E+00 
==  4.12280E+00 
=  1.48810E-01 


RME2(4,  6,10) 
RME2(4,  7,10) 
RME2(4,  8,10) 
RME2(4,  9,10) 
RME2(4,10,10) 
RME2(4,11,10) 
RME2 (4,12,10) 
RME2(4,13,10) 
PME2  (4,14,10) 
RME2(4,15,10) 
RME2(4,  5,11) 
RME2(4,  6,11) 
RME2(4,  7,11) 
RME2(4,  8,11) 
RME2(4,  9,11) 
RME2(4,10,11) 
RME2 (4,11,11) 
RME2 (4,12,11) 
RME2(4,13,11) 
RME2 (4,14,11) 
RME2(4,15,11) 
PME2(4,  5,12) 
RME2(4,  6,12) 
RME2(4,  7,12) 
RME2(4,  8,12) 
RME2(4,  9,12) 
RME2 (4,10,12) 
RME2(4,11,12) 
RME2  (4,12,12) 
RME2 (4,13,12) 
RME2(4,14,12) 
PME2  (4,15,12) 
RME2(4,  5,13) 
RME2(4,  6,13) 
RME2(4,  7,13) 
RME2(4,  8,13) 
RME2(4,  9,13) 
RME2(4,10,13) 
RME2  (4,11,13) 
RME2(4,12,13) 
RME2  (4, 13,13) 
RME2  (4,14,13) 
RME2(4,15,13) 
RME2(4,  5,14) 
RME2(4,  6,14) 
RME2(4,  7,14) 
RME2(4,  8,14) 
RME2(4,  9,14) 
RME2  (4,10,14) 
RME2(4,11,14) 
RME2  (4,12,14) 
RME2  (4,13,14) 
RME2(4,14,14) 
RME2(4,15,14) 
RME2(4,  5,15) 
RME2(4,  6,15) 
RME2(4,  7,15) 
RME2(4,  8,15) 
RME2(4,  9,15) 
RME2 (4,10, 15) 
RME2(4,11,15) 
RME2  (4, 12,15) 
RME2(4,13,15) 
KME2(4,14,15) 
RME2 (4,15,15) 


4.61060E-01 

1.23400E+00 

3.53830E+00 

1.47440E+01 

-1.37480E+02 

5.70270E+01 

2.16010E+01 

1.22990E+01 

8.29530E+00 

6.13820E+00 

1.13560E-01 

3.28790E-01 

7.90120E-01 

1.86650E+00 

4.95240E+00 

1.95200E+01 

-1.69080E+02 

6.59050E+01 

2.49250E+01 

1.41750E+01 

9.55230E+00 

9.07910E-02 

2.51090E-01 

5.63870E-01 

1.19660E+00 

2.61910E+00 

6.59100E+00 

2.49420E+01 

-2.03650E+02 

7.54380E+01 

2.84620E+01 

1.61600E+01 

7.50360E-02 

2.00830E-01 

4.30650E-01 

8.54060E-01 

1.68010E+00 

3.49160E+00 

8.45430E+00 

3.10100E+01 

-2.41210E+02 

8.56250E+01 

3.22170E+01 

6.35640E-02 

1.66020E-01 

3.44390E-01 

6.52090E-01 

1.19890E+00 

2.24030E+00 

4.48380E+00 

1.05420E+01 

3.77270E+01 

-2.81750E+02 

9.64640E+01 

5.48790E-02 

1.40760E-01 

2.84640E-01 

5.21240E-01 

9.14950E-01 

1.59810E+00 

2.87690E+00 

5.59530E+00 

1.28550E+01 

4.50920E+01 

-3.25280E+02 


C  H-G  TRANSITION: 


RME2  (5, 

6, 

5) 

RME2  (5, 

1, 

5) 

RME2 (5, 

8, 

5) 

RME2  (5, 

9, 

5) 

RME2  (5, 

10, 

5) 

PME2  (5, 

11, 

5) 

RME2 (5, 

12, 

5) 

RME2 (5, 

13, 

5) 

RME2  (5, 

14, 

5) 

RME2 (5, 

15, 

5) 

RME2  (5, 

6, 

6) 

RME2  {5, 

7, 

6) 

RME2 (5, 

8, 

6) 

RME2  (5, 

9, 

6) 

RME2 (5, 

10, 

6) 

RME2  (5, 

11, 

6) 

RME2  (5, 

12, 

6) 

RME2  (5, 

13, 

6) 

RME2 (5, 

14, 

6) 

RME2  (5, 

15, 

6) 

RME2  (5, 

6, 

7) 

RME2  (5, 

7, 

7) 

RME2 {5, 

8, 

7) 

RME2 (5, 

9, 

7) 

RME2  (5, 

10, 

7) 

RME2  (5, 

11, 

7) 

KME2  {5, 

12, 

7) 

RME2  (5, 

13, 

7) 

PME2  (5, 

14, 

7) 

RME2  (5, 

15, 

7) 

PME2  (5, 

5, 

8) 

KME2  (5, 

7, 

8) 

RME2  {5, 

8, 

8) 

RME2 (5, 

9, 

8) 

RMK2  {5, 

10, 

8) 

RME2 (5, 

11, 

8) 

RME2  (5, 

12, 

8) 

RME2  {5, 

13, 

8) 

RME2 (5, 

14, 

8) 

BME2  {5, 

15, 

8) 

RME2  (5, 

6, 

9) 

RME2  {5, 

7, 

9) 

RME2  (5, 

8, 

9) 

RME2 (5, 

9, 

9) 

RME2 (5, 

10, 

9) 

RME2  (5, 

11, 

9) 

RME2 (5, 

12, 

9) 

RME2  (5, 

13, 

9) 

RME2 (5, 

14, 

9) 

RME2 (5, 

15, 

9) 

BME2  (5, 

6, 

10) 

RME2  (5, 

7, 

10) 

PME2  (5, 

8, 

10) 

RME2  (5, 

9, 

10) 

RME2  (5, 

10, 

10) 

RME2 (5, 

11, 

10) 

RME2 (5, 

12, 

10) 

KME2  (5, 

13, 

10) 

RME2 (5, 

14, 

10) 

RME2 (5, 

15, 

10) 

RME2 (5, 

6, 

11) 

RME2 {5, 

7, 

11) 

RME2  (5, 

8, 

11) 

RME2  {5, 

9, 

11) 

RME2  (5, 

10, 

11) 

KME2 (5, 

11, 

11) 

RME2  (5, 

12, 

11) 

2.72140E+01 

7.45730E+00 

3.64320E+00 

2.24990E+00 

1.57310E+00 

1.18630E+00 

9.40500E-01 

7.72520E-01 

6.51350E-01 

5.60300E-01 

-2.98490E+01 

3.30640E+01 

1.08660E+01 

5.70590E+00 

3.65590E+00 

2.61200E+00 

1.99720E+00 

1.59880E+00 

1.32250E+00 

1.12110E+00 

2.37410E+00 

-5.14390E+01 

3.96420E+01 

1.39590E+01 

7.58760E+00 

4.95900E+00 

3,58760E+00 

2.76640E+00 

2.22800E+00 

1.85140E+00 

6.99500E->01 

4.86810E+00 

-7.49390E+01 

4.69160E+01 

1.70590E+01 

9.44250E+00 

6.24060E+00 

4.54820E+00 

3.52540E+00 

2.85010E+00 

3.44840E-01 

1.49470E+00 

7.96580E+00 

-1.01020E+02 

5.48700E+01 

2.02750E+01 

1.13330E+01 

7.53780E+00 

5.51750E+00 

4.29010E+00 

2.12140E-01 

7.50780E-01 

2.50910E+00 

1.16910E+01 

-1.29900E+02 

6.34950E+01 

2.36530E+01 

1.32910E+01 

8.87100E+00 

6.50930E+00 

1.47360E-01 

4.66180E-01 

l*27560E+00 

3.74640E+00 

1.60520E+01 

“1.61660E+02 

7.27850E+01 


RME2(5,13,11) 
RME2 (5,14,11) 
RME2(5,15,11) 
RME2(5,  6,12) 
RME2(5,  7,12) 
RME2(5,  8,12) 
RME2(5,  9,12) 
RME2(5,10,12) 
RME2(5,11,12) 
RME2{5,12,12) 
RME2(5,13,12) 
RME2(5,14,12) 
RME2 (5,15,12) 
RME2(5,  6,13) 
RME2(5,  7,13) 
RME2(5,  8,13) 
RME2(5,  9,13) 
RME2(5,10,13) 
RME2(5,11,13) 
PME2(5,12,13) 
RME2(5,13,13) 
RME2(5,14,13) 
RME2(5,15,13) 
RME2(5,  6,14) 
RME2(5,  7,14) 
RME2(5,  8,14) 
RME2(5,  9,14) 
RME2(5,10,14) 
RME2 (5,11, 14) 
RME2 (5,12,14) 
RME2 (5,13,14) 
RME2 (5,14,14) 
RME2 (5,15,14) 
RME2(5,  6,15) 
FME2(5,  7,15) 
RME2(5,  8,15) 
RME2(5,  9,15) 
RME2 (5,10,15) 
PME2(5,11,15) 
RME2(5,12,15) 
RME2 (5,13,15) 
RME2  (5,14,15) 
RME2 (5,15,15) 


=  2.72170E+01 
=  1.53330E+01 
=  1.02520E+01 
=  1.10410E-01 
=  3.25440E-01 
=  7.96860E-01 
=  1.92030E+00 
=  5.20740E+00 
=  2.10520E+01 
=  -1.96350E+02 
=  8.27360E+01 
=  3.09790E+01 
=  1.74700E+01 
=  8.70370E-02 
=  2.44490E-01 
=  5.58060E-01 
=  1.20460E+00 
=  2.68500E+00 
=  6.89250E+00 
=  2.66960E+01 
=  -2.34000E+02 
=  9.33460E+01 
=  3.49480E+01 
=  7.11510E-02 
=  1.93060E-01 
=  4.19970E-01 
=  8.45390E-01 
=  1.68920E+00 
=  3.56930E+00 
=  8.80170E+00 
=  3.29840E+01 
=  -2.74610E+02 
=  1.04610E+02 
=  5.95760E-02 
=  1.57980E-01 
=  3.31920E-01 
=  6.36870E-01 
=  1.18710E+00 
=  2.25030E+00 
=  4.57310E+00 
=  1.09350E+01 
=  3.99170E+01 
=  -3.18190E+02 


C  I-H  TRANSITION: 
RME2(6,  7, 
RME2(6,  8, 
RME2(6,  9, 
RME2  (6, 10, 
RME2(6,11, 
RME2(6,  7, 
RME2(6,  8, 
RME2(6,  9, 
RME2 (6, 10, 
RME2  (6, 11, 
RME2(6,  7, 
RME2(6,  8, 
RME2(6,  9, 
RME2  (6, 10, 
RME2(6,11, 
RME2  (6,12, 
RME2(6,  7, 
RME2(6,  8, 
RME2(6,  9, 
RME2  (6,10, 
RME2(6,11, 
RME2  (6, 12, 


6)  =  3.87110E+01 

6)  =  9.90570E+00 

6)  =  4.61860E+00 

6)  =  2.76000E+00 

6)  =  2.60000E+00 

7)  =  -3.78590E+01 

7)  =  4.55660E+01 

7)  =  1.42540E+01 

7)  =  7.22410E+00 

7)  =  4.50280E+00 

8)  =  2.72970E+00 

8)  =  -6.34980E+01 
8)  =  5.31590E+01 

8)  =  1.80360E+01 

8)  =  9.53800E+00 

8)  =  -6.09830E+00 

9)  =  7.57200E-01 

9)  =  5.47990E+00 

9)  =  -9.05600E+01 
9)  =  6.14650E+01 

9)  =  2.17300E+01 

9)  =  1.17660E+01 


RME2(6,  7,10)  =  3.55900E-01 

RME2(6,  8,10)  =  1.60020E+00 

RME2(6,  9,10)  =  8.82050E+01 

RME2(6,10,10)  =  -1.20000E+02 
RME2(6,11,10)  =  7.04630E+01 

RME2(6,12,10)  =  2.54780E+01 

RME2(6,  7,11)  =  2.12000E-01 

RME2(6,  8,11)  =  7.74700E-01 

RME2(6,  9,11)  =  2.66250E+00 

RME2  (6,10,11)  =  1.27800E+01 

RME2(6,11,11)  =  -1.52120E+02 
RME2(6,12,11)  =  8.01380E+01 

RME2(6,  8,12)  =  4.69900E-01 

RME2(6,  9,12)  =  1.31310E+00 

RME2(6,10,12)  =  3.94800E+00 

RME2 (6, 11,12)  =  1.73870E+01 

FME2(6,12,12)  =  -1.87060E+02 

C  K-I  TRANSITION; 

RME2(7,  8,  7)  =  5,20000E+OI 

RME2{7,11,  7)  =  5.03000E+00 

RME2(7,  8,  8)  =  -4.64760E+01 
RME2(7,11,  8)  =  1.03000E+01 

RME2(7,  8,11)  =  6.00000E-01 

RME2(7,11,11)  =  -1.40010E+02 


RETURN 

END 


CODEC:  Line  Shape  Construction  and  Instrument  Convolution 


C***************************LINSHAPE.FOR********************************* 
C 

LINE  SHAPE  CONSTRUCTION 
AND  INSTRUMENT  FUNCTION  CONVOLUTION  PROGRAM 
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SPEC: 

INSTFNT : 
DELAMDA: 
ENAMEW: 
NAMEINl: 
NAMEIN2 : 

I,  J,N,M: 
NP: 

NUMLINE: 

NINC 

DIV: 

PI: 

HP, CO: 

FPI: 

LINE: 

A: 

POP: 

DENS: 

DDN: 

TE: 

TEL: 

ETrt/DTH: 

A/CO 

LORLINE: 

TOTRAD: 

WAVLEN: 

F: 

FO: 

XCONVL: 

YCONVL: 

R: 

REXT: 
ENRGY: 
INTENS : 
NUMER: 
HWHM2: 


LAST  UPDATE:  20  MAY  1994 

MISSION  RESEARCH  CORPORATION 
1  TARA  BLVD  SUITE  302 
NASHUA  NH  03062-2801 


CVF 


FN. 


SWITCH  FOR  INSTRUMENT  FUNCTION  (SPEX  SPECTROMETER, 
INTERFEROMETER,  OR  GENERIC) . 

TRIANGULAR  OR  RECTANGULAR  INSTRUMENT  FUNCTION. 

FWHM  SUPPLIED  ON  INPUT  FOR  TRIANGULAR/RECTANGULAR  INST. 
OUTPUT  FILE  FOR  CONVOLVED  SPECTRA. 

SPIN  1  OUTPUT  FILE  FROM  CODE-B. 

SPIN  2  OUTPUT  FILE  FROM  CODE-B. 

LOOP  INDICES. 

ARRAY  SIZE  LIMIT. 

NUMBER  OF  TRANSITIONS  (LINES)  LOADED  INTO  PROGRAM. 
NUMBER  OF  SAMPLES  IN  THE  SPECTRXJM. 

LOOP  INDICE  (STEP)  DETERMINE  FROM  EXTERNAL  RESOLUTION. 


3.1415927 

PLANCK* S  CONSTANT  AND  SPEED  OF  LIGHT. 

FOUR  PI  STERADIANS. 

LINE  POSITION  (MICRON) . 

EINSTEIN  A-COEFFICIENT  (S-1) . 

RELATIVE  POPULATION  OF  THE  UPPER  STATE  OF  THE  TRANSITION. 
TOTAL  ATOM  DENSITY  SUPPLIED  ON  INPUT  (CM-3) . 

ELECTRON  DENSITY  SUPPLIED  BY  CODE-B  INPUT  FILE. 

ELECTRON  TEMPERATURE  SUPPLIED  BY  CODE-B  INPUT  FILE. 
ELECTRONIC  TEMPERATURE  SUPPLIED  BY  CODE-B  INPUT  FILE. 
HALF-WIDTH  AT  HALF  MAX  OF  STARK  WIDTH  (CM-1)  . 

ROUGH  APPROXIMATION  OF  NATURAL  LINE  WIDTH  (CM-1) 
CALCULATED  LORENTZ  ARRAY  AT  EACH  LINE  (CM-1)  - 
SUMMATION  OF  ALL  LORENTZ  ARRAYS  FOR  TOTAL  CONTRIBUTION. 
WAVELENGTH  ARRAY  (MICRON)  . 

WAVENUMBER  SPACE  VARIABLE  (CM-1) . 

LINE  POSITION  IN  WAVENUMBER  SPACE  (CM-l) - 

WAVELENGTH  ARRAY  PASSED  BACK  FROM  CONVOLUTION  SUBROUTINE. 
CONVOLVED  SPECTRUM  ARRAY  PASSED  BACK  FROM  CONVOLUTION 
SUBROUTINE. 

INTERNAL  RESOLUTION  FOR  LORENTZ  ARRAYS  (MICRON) . 

EXTERNAL  RESOLUTION  FOR  CONVOLVED  OUTPUT  (MICRON) . 

ENERGY  OF  TRANSITION  (ERG) . 

POPULATION,  A-COEFFICIENT,  AND  TRANSITION  ENERGY. 

VARIABLE  USED  FOR  OPTIMIZATION. 

VARIABLE  USED  FOR  OPTIMIZATION. 


SUBROUTINES : 
REAL  FUNCTIONS: 


LORENTZ,  CONVOLV. 
SPEX,  CVF. 


PROGRAM  LINSHAP7 
IMPLICIT  NONE 

INTEGER  I,  J,N,M,  NUMLINE,  NP,  NINC,  DIV 
CHARACTER*!  SPEC, INSTFNT 
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CHARACTER* 12  ENAMEW, NAMEINl, NAMEIN2 
REAL  PI,HP,CO,HC,FPI 

REAL  DELAMDA,  WS T ,  WVEN ,  R ,  REXT ,  WAVLEN ,  F ,  FO ,  XCONVL ,  LINE 
REAL  YCONVL,LORLINE,TOTRAD,INTENS 

REAL  DDN, TE, TEL, A, POP, EWDTH, ENRGY, HWHM, SLIT, PTHLEN 


REAL  PARTFUNC,Z,DENS 
PARAMETER  (NP=50000) 

PART^TER  (PI=3.14159D0) 

PARAMETER  (HP=6 . 6261961D-27) 

PARAMETER  (C0=2 . 997925D+10) 

PARAMETER  (HC=HP*C0) 

PARAMETER  (FPI=4 . D0*PI ) 

DIMENSION  YCONVL(NP) ,XCONVL(-300:NP) 

DIMENSION  LORLINE(NP),  TOTR7U)  (-300 :NP) 

DIMENSION  WAVLEN (-300 :NP) ,F(-300:NP) 

DIMENSION  LINE (50000) ,A(50000) , POP (50000) , EWDTH (50000) 
COMMON/SPEX/  SLIT 


!  ARRAY  SIZE  LIMIT 
!  PI 

!  PLANCK’S  CONST  ERG*S 
!  SPEED  OF  LIGHT  CMS-1 
!  ERGCM 

!  4PI  SR 


9001  F0RMAT(1X,F8.4,2X,1P,E12.3) 

9000  FORMAT(1X,F9.6,5X,1PE10.4) 

OPEN  (10, FILE=’LINSHAPE. SET' , STATUS 

READ(10, ' (A12) ' )  NAMEINl 
READdO,  ’  (A12)  '  )  NAMEIN2 
READdO,  '  (A12)  '  )  ENAMEW 
READdO,*)  DENS 
READdO,*)  PTHLEN 
READdO,*)  WVST 
READdO,*)  WVEN 
READdO,*)  R 
READdO,*)  REXT 
READdO,  '  (Al)  '  )  SPEC 
READdO,*)  SLIT 
READdO,*)  DELAMDA 
READdO,  '  (Al)  '  )  INSTFNT 

OPEN  (11, FILE  =  NAMEINl, STATUS 
OPEN  (12, FILE  =  NAMEIN2 , STATUS 
OPEN  (13, FILE  =  ENAMEW, STATUS 
OPEN  (14, FILE  =  'UNCONVL.DAT', 


OLD '  ) 

SPIN  1  CODE-B  OUTPUT  FILE 
SPIN  2  CODE-B  OUTPUT  FILE 
CONVOLVED  SPECTRA  (OUTPUT) 

TOTAL  ATOM  DENSITY  (CM-3) 

PATH  LENGTH  (CM) 

STARTING  WAVELENGTH  (MICRONS) 

ENDING  WAVELENGTH  (MICRONS) 

INTERNAL  RESOLUTION  (MICRONS) 
EXTERNAL  RESOLUTION  (MICRONS) 

SWITCH  FOR  INSTRUMENT  FUNCTION 
SLIT  WIDTH  IN  MILIMETERS 
FWHM  IN  MICRONS 

TRIANGULAR  OR  RECTANGULAR  INSTR.  FN. 

’ OLD ' ) 

’  OLD '  ) 

UNKNOWN' ) 

STATUS  =  'UNKNOWN') 


NINC=NINT ( (WVEN-WVST) /R) 

DIV=INT (REXT/R) 

I F (NINC . GT . NP ) THEN 

WRITE(*,*)'  NINC  >  ',NP,'  SPECTRAL  RANGE  IS  TOO  BIG' 
GO  TO  9999 
END  IF 


C  ARRAY  INITIALIZATION: 


DO  1000  1=1, NINC 

WAVLEN(I)=WVST+FLOAT (I) *R  !  WAVELENGTH  ARRAY  (MICRONS) 
TOTRAD(I)=0.E0  !  RADIANCE  ARRAY  (WCM-3SR-1MI CRON-1) 

1000  CONTINUE 

DO  1001  I=NINC,1,-1 

F(I)=l.D+4/WAVLEN(I)  !  WAVENUMBER  ARRAY  (CM-1) 

1001  CONTINUE 


WRITE (*,*)  '  READING  SPIN  1  LINE  FILES...'  !  SPIN  1 


READ (11,*) DDN 
READ(11,*)TE 
READdl,  *)TEL 
DDN=DDN 
TE=TE 


!  ELECTRON  DENSITY. 

!  ELECTRON  TEMPERATURE. 

!  ELECTRONIC  TEMPERATURE. 

!  THIS  INFO  IS  LABELLING  INFO  FOR  STARK  OUTPUT. 
!  VARIABLES  ARE  RESTORED  FOR  A  CLEAN  COMPILE 
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1090 


1=1 

READ(11,*,END=1100)  LINE (I) ,A{I) ,POP(I) ,EWDTH(I) 
1=1  +  1 
GOTO  1090 
1100  N=I-1 

Z=PARTFUNC (TEL) 


DO 

IF 


1300  1=1, N 

(LINE(I) .EQ.-l.)  GOTO  1301 
EWDTH(I)=MAX(0.D0,EWDTH{I) ) 

HWHM=EWDTH(I)+A(I)/C0  ! 

F0=1.D4/LINE(I)  ! 

LINE(I)=LINE(I)*lD-04  ! 

ENRGY=HC/LINE(I)  !  - 

INTENS=1.D-7*ENRGY*A(I) *POP (I) *PTHLEN*DENS/ (Z*FPI) 

!  WCM-2JSR-1  (1E-7W/ERGS 


!  SEE  EWIDTH=-2 .  FLAG  IN  CODE-B  MAIN 
HWHM  NATURAL  LINE  WIDTH  LOWER  LIMIT 
CONVERSION  FROM  MICRONS  TO  WAVENUMBER 
CONVERSION  FROM  MICRONS  TO  CM 
ENERGY  OF  TRANSITION  (ERG) 


CALL  LORENTZ(F(l) , FO , INTENS , HWHM, LORLINE , NINC ) 

DO  1200  J=1,NINC  !  SUM  ALL  LORENTZ  DISTRIBUTIONS 

LORLINE (J) =LORLINE (J) *1.D4/  (WAVLEN (J) ) **2 
TOTRAD ( J) =TOTRAD ( J) +LORLINE ( J ) 

1200  CONTINUE 


1300  CONTINUE 

1301  CONTINUE 


WRITE (*,*)  ’  READING  SPIN  2  LINE  FILES...’  !  SPIN  2 


READ(12,*)DDN 
READ(12,*)TE 
READ (12,*) TEL 
DDN=DDN 
TE=TE 


!  ELECTRON  DENSITY. 

!  ELECTRON  TEMPERATURE. 

!  ELECTRONIC  TEMPERATURE. 

!  THIS  INFO  IS  LABELLING  INFO  OF  STARK  OUTPUT 
!  VARIABLES  ARE  RESTORED  FOR  A  CLEAN  COMPILE 


1=1 

1390  READ(12, *,END=1400)  LINE (I ) , A(I ) , POP (I) , EWDTH (I ) 
1=1+1 
GOTO  1390 
1400  M=I-1 

Z=PARTFUNC (TEL) 


DO  1600  1=1, M 

IF  (LINE(I) .EQ.-l.)  GO  TO  1601 
EWDTH  ( I )  =MAX  ( 0 .  DO ,  EWDTH  ( I )  ) 
HWHM=EWDTH ( I ) +A  ( 1 ) /CO 
F0=1.D4/LINE(I) 
LINE(I)=LINE(I) *lD-4 
ENRGY=HC/LINE(I) 
INTENS=1.D-7*ENRGY*A(I) *POP ( 


!  SEE  EWIDTH=-2.  FLAG  IN  CODE-B  MAIN 
!  HWHM  NATURAL  LINE  WIDTH  LOWER  LIMIT 
!  CONVERSION  FROM  MICRONS  TO  WAVENUMBER 
!  CONVERSION  FROM  MICRONS  TO  CM 
!  ENERGY  OF  TRANSITION  (ERG) 

I) *PTHLEN*DENS/ (Z*FPI) 

!  WCM-2JSR-1  (1E-7W/ERGS-1) 


CALL  LORENTZ ( F  ( 1 ) , FO , INTENS , HWHM, LORLINE , NINC ) 
DO  1500  J=1,NINC 

LORLINE (J)=LORLINE (J) *1.D4/  (WAVLEN (J) ) **2 
TOTRAD ( J) =TOTRAD ( J) +LORLINE ( J) 

1500  CONTINUE 


1600  CONTINUE 

1601  CONTINUE 


NUMLINE=N+M 
WRITE(*,*)  ' 
WRITE(*,*)  ' 
WRITE (*,*)  ' 
WRITE (*,*)  ' 


NUMBER  OF  SPIN  1  LINES=  ',N 

NXniBER  OF  SPIN  2  LINES=  ',M 

SUM  OVER  STATES  (PARTITION  FUNCTION) =  ' 

TOTAL  NUMBER  OF  LINES=  ',NUMLINE 
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WRITE ( * , * )  '  CONVOLVING. . .  ’ 

CALL  CONVOLVE (WAVLEN, TOTRAD, XCONVL, YCONVL, NINC, 
&  DELAMDA, SPEC,INSTFNT) 

DO  1900  1=1, NINC, DIV 

WRITE (13, 9000)  XCONVL(I),  YCONVL(I) 

WRITE (14, 9000)  WAVLEN ( I ), TOTRAD ( 1 ) 

1900  CONTINUE 

9999  CONTINUE 

CLOSE (11) 

CLOSE (12) 

CLOSE (13) 

CLOSE (14) 

STOP 

END 


SUBROUTINE  LORENTZ (F, FO, INTENS, HWHM, LORLINE,NINC) 

C************************************************************************* 


C  THIS  SUBROUTINE  PASSES  BACK  A  LORENTZIAN  DISTRIBUTION  FOR  A 
C  SINGLE  LINE. 

C 

C  NINC  NUMBER  OF  SAMPLES  IN  THE  SPECTRUM. 

C  F:  WAVENUMBER  SPACE  VARIABLE  (CM-1) . 

C  FO:  LINE  POSITION  IN  WAVENUMBER  SPACE  (CM-1) . 

C  INTENS:  POPULATION,  A-COEFFICIENT,  T^D  TRANSITION  ENERGY. 

C  NUMER:  VARIABLE  USED  FOR  OPTIMIZATION. 

C  HWHM2:  VARIABLE  USED  FOR  OPTIMIZATION. 

C  LORLINE:  CALCULATED  LORENTZ  ARRAY  AT  EACH  LINE  (CM-1) .  * 

C  * 

Q********************* *****************************  *********************** 


IMPLICIT  NONE 
INTEGER  I, NINC 

REAL  PI, HWHM, HWHM2,F,F0, LORLINE, NUMER,  INTENS 
DIMENSION  LORLINE (*) ,F(*) 

PARAMETER  (PI=3 . 14159D0) 

NUMER=INTENS*HWHM/PI  !  LOOP  OPTIMIZATION  VARIABLE 

HWHM2=HWHM**2  !  HWHM  SQUARED.  UNITS:  CM-1 

DO  1000  1=1, NINC 

LORLINE(I)=NUMER/( (F(I)-F0)**2+HWHM2)  !  LORENTZ  DISTRIBUTION. 

1000  CONTINUE 

RETURN 

END 


REAL  FUNCTION  SPEX (WAVLEN) 

Q* ************************************************************************ 

C  THIS  FUNCTION  RETURNS  THE  VALUE  OF  FWHM  FOR  THE  SPEX  INSTRUMENT  * 

(^**** ***************************************  ****************************** 
REAL  SLIT, FWHM, WAVLEN 
COMMON/SPEX/  SLIT 

IF  (WAVLEN.lt. 8.0)  THEN 

FWHM=SLIT* (-.000585*WAVLEN+.0142) 

ELSE  IF  (WAVLEN.lt. 16. )  THEN 

FWHM=SLIT* (-. 0005 85*WAVLEN+. 0284) 

ELSE 

FWHM=SLIT* (-.000585DO*WAVLEN+.0426DO) 
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END  IF 

SPEX=FWHM 

RETURN 

END 


REAL  FUNCTION  CVF  (WAVLEN) 

C******** ***************************************************** ************ 

C  THIS  FUNCTION  RETURNS  FWHM  FOR  THE  EXCEDE  III  CVF4  INSTRUMENT  * 


IF  (WAVLEN.lt. 4. 2E0)  THEN 

FWHM=(-.00304709EO*WAVLEN+.0357227EO) *WAVLEN 
ELSE  IF  {WAVLEN.LT.7.35E0)  THEN 

FWHM= (-. 00231325E0*WAVLEN+ . 0406235E0) *WAVLEN 
ELSE  IF  (WAVLEN.LT.12 . 85E0)  THEN 

FWHM=(-.00P79086E0*WAVLEN+.037995E0) *WAVLEN 
ELSE 

FWHM={-.000236616E0*WAVLEN+.03491286E0) *WAVLEN 
END  IF 
CVF=FWHM 


RETURN 

END 


SUBROUTINE  CONVOLVE (WAVLEN, TOTRAD, XCONVL, YCONVL, NINC, 

$  DELAMDA, SPEC, INSTFNT) 

C************* ******************************************** **************** 

C  THIS  SUBROUTINE  CONVOLVES  THE  SUPERPOSED  LORENTZIAN  DISTRIBUTIONS  WITH  * 
C  EITHER  A  TRIANGULAR  OR  RECTANGULAR  INSTRUMENT  FUNCTION.  * 

C************* ****************************************************** ****** 

PARAMETER { INTVL=1 5 0 0 0 ) 

CHARACTER*!  SPEC, INSTFNT 

DIMENSION  YCONVL(INTVL) , XCONVL (-300 : INTVL) ,B (-300 : INTVL) 

DIMENSION  X (-300: INTVL) ,Y (-300; INTVL) 

DIMENSION  WAVLEN (-300: INTVL) ,TOTRAD (-300: INTVL) 

COMMON/SPEX/  SLIT 

DO  100  I=1,NINC 
X(I)=WAVLEN(I) 

Y(I)=TOTRAD(I) 

XCONVL(I)=X(I) 

100  CONTINUE 

C  IF  SPEC  =  S  THEN  CALCULATE  FWHM  FOR  SPEX  INSTRUMENT 
C  IF  SPEC  =  C  THEN  CALCULATE  FWHM  FOR  CVF  INSTRUMENT 

IF  (SPEC.EQ. 'S' )  THEN 
FWHM1=SPEX(X(1) ) 

ELSE  IF  (SPEC.EQ. 'C ' )  THEN 
FWHM1=CVF(X(1) ) 

ELSE 

FWHM1=DELAMDA 
END  IF 

DELX1=X(2)-X(1) 

NPT1=INT (FWHMl/DELXl) 

DO  120  M1=0,-NPT1,-1 

X  (Ml) =X (1) +FLOAT (Ml-1) *DELX1 
-XCONVL (Ml )=X (Ml) 

Y(M1)=0.E0 
120  CONTINUE 

IF  (SPEC.EQ. 'S' )  THEN 
FWHMN=SPEX (X (NINC) ) 
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ELSE  IF  (SPEC.EQ. 'C )  THEN 
FWHMN=CVF(X(NINC) ) 

ELSE 

FWHMN=DELAMDA 
END  IF 

DELXN=X (NINC ) -X (NINC- 1 ) 

NPTN=INT (FWHMN/DELXN) 

DO  130  MN=NINC+1,NINC+NPTN 

X (MN) =X (NINC) + (MN-NINC) *DELXN 
XCONVL (MN) =X (MN) 

Y{MN)=O.DO 
130  CONTINUE 

C  CONVOLUTION  WITH  THE  INSTRUMENT  FUNCTION: 

DO  1000  1=1, NINC 
IENDR=0 
IENDL=0 
BJSUM=0.DO 

IF  (SPEC.EQ. 'S' )  THEN 
FWHM=SPEX(X(I) ) 

ELSE  IF  (SPEC.EQ. 'C )  THEN 
FWHM=CVF(X(I)  ) 

ELSE 

FWHM=DELAMDA 
END  IF 

C  CALCULATION  FOR  THE  RIGHT  SIDE  OF  THE  INSTRUMENT  FUNCTION 

DO  150  J=I,NINC+200 
B(J)=0.D0 

DELX=ABS (X ( I ) -XCONVL ( J) ) 

C  TRIANGULAR  INSTRUMENT  FUNCTION: 

IF  (INSTFNT.EQ. 'T' )  THEN 

IF  (DELX.GT.FWHM)  GO  TO  155 
B ( J) =1 .DO- (DELX/FWHM) 

ENDIF 

C  RECTANGULAR  INSTRUMENT  FUNCTION: 

IF  (INSTFNT.EQ. 'R' )  THEN 

IF  (DELX.GT.FWHM)  GO  TO  155 
B(J)=1.D0 
ENDIF 

C  SPEX  INSTRUMENT  FUNCTION: 

IF  (INSTFNT.EQ. 'S' )  THEN 

IF  (DELX.GT.FWHM)  GO  TO  155 
B ( J) =1 . DO- (DELX/FWHM) 

ENDIF 

IENDR=IENDR+1 
BJSUM=BJSUM+B ( J) 

150  CONTINUE 

C  CALCULATION  FOR  THE  LEFT  SIDE  OF  THE  INSTRUMENT  FUNCTION 

155  DO  160  J=I-l,-NINC-200,-l 

B(J)=0.D0 

DELX=ABS (X (I) -XCONVL (J) ) 

C  TRIANGULAR  INSTRUMENT  FUNCTION: 

IF  (INSTFNT.EQ.'!')  THEN 

IF  (DELX.GT.FWHM)  GO  TO  190 
B(J)=1.D0- (DELX/FWHM) 
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ENDIF 


C  RECTANGULAR  INSTRUMENT  FUNCTION: 

IF  (INSTFNT.EQ. 'R' )  THEN 

IF  (DELX.GT.FWHM)  GO  TO  190 
B(J)=1.D0 
ENDIF 

C  SPEX  INSTRUMENT  FUNCTION: 

IF  (INSTFNT.EQ. 'S' )  THEN 

IF  (DELX.GT.FWHM)  GO  TO  190 
B(J)=1.D0- (DELX/FWHM) 

ENDIF 

IENDL=IENDL+1 
BJSUM=BJSUM+B ( J) 

160  CONTINUE 

C  NORMALIZATION  OF  WEIGHTING  FACTORS 

190  DO  200  K=I-IENDL, I+IENDR-1 

B(K) =B(K) /BJSUM 
200  CONTINUE 

C  CONVOLUTION: 

yCONVL(I)=0.D0 

DO  300  L=I-IENDL, I+IENDR-1 

YCONVL(I)=YCONVL(I)+y(L) *B(L) 
300  CONTINUE 

1000  CONTINUE 

RETURN 

END 


FUNCTION  PARTFUNC(TEL) 

INTEGER  S,N,L 

INTEGER  NMAX,NMIN,LMAX,LMIN 
REAL  F,PARTFUNC 
REAL  KB,H,C,HC,KT,TEL,G 
DIMENSION  F (30, 30, 0:3) 

COMMON/ TERMS /F 

PARAMETER  (KB=1 . 38066E-16)  !  BOLTZMANN  CONST  ERG/K. 

PARAMETER  (H=6. 62608E-27)  !  PLANCK’S  CONST  ERGS. 

PARAMETER  (C=2 . 99792E+10)  !  SPEED  OF  LIGHT  CM/S . 

PARAMETER  (HC=H*C) 

CALL  BASIS 

KT=KB*TEL 
PARTFUNC=0 . 0 


!  FILL  ENERGY  MATRIX  WITH  VALUES. 

!  ELECTRONIC  TEMPERATURE  *  BOLTZ  CONST. 

!  PARTITION  FUNCTION  VARIABLE  INITIALIZATION. 


DO  1000  S=0,2 

IF(S.EQ.O)  THEN 
NMAX=2 
NMIN=2 
LMAX=1 
LMIN=1 

END  IF 

IF(S.EQ.l)  THEN 
NMAX=11 
NMIN=2 
LMAX=7 
LMIN=0 


!  THE  LOOP  INDICES  ARE  'HARD  WIRED'  BECAUSE 
!  OF  THE  DIFFERENCE  IN  SIZE  OF  THE  BASIS  SETS 
!  WITH  RESPECT  TO  SINGLETS,  TRIPLETS  AND 
!  QUINTETS. 


!  LOOP  INDICES  FOR  THE  SPIN  1  BASIS  STATES. 
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END  IF 

IF(S,EQ.2)  THEN 

NMAX=11  !  LOOP  INDICES  FOR  THE  SPIN  2- BASIS  STATES. 

NMIN=3 
LMAX=7 
LMIN=0 
END  IF 


1100 

1200 

1000 


G=(2.D0* (FLOAT(S) )+l.D0)* (2.D0* (FLOAT(S) )+l.D0)  !  DEGENERACY. 


DO  1200  L=LMAX,LMIN,-1 
DO  1100  N=NMAX,NMIN,-1 
IF(N.LE.L)  GOTO  1200 
IF(N.EQ.2.AND.l.EQ.O)  GOTO  1200 
IF(N.GE.9.AND.L.EQ.LMAX)  GOTO  1100 


FORMAT  FOR  CODE-B 
INPUT. 

'L=N-1' 

NO  2S  STATE. 

!  NO  2S  STATE. 


PARTFUNC=PARTFUNC+G*EXP {-HC*F (N, L, S) /KT) 


CONTINUE 

CONTINUE 

CONTINUE 


RETURN 

END 


SUBROUTINE  BASIS 

C****************************** *************************************** ****** 

C  * 

C  THIS  SUBROUTINE  FILLS  THE  ARRAY,  F(N,L,S),  WITH  THE  ENERGY  LEVELS  OF  * 

C  ATOMIC  OXYGEN  INCLUDING  TRIPLETS,  QUINTETS,  AND  THE  THREE  LOWEST  * 

C  SINGLETS,  I.E.,  2P4 (ID) ,  2P4  (IS) ,  AND  3S(1D).  THE  ARRAY  INDICES  ARE  * 

C  PRINCIPAL  QUANTUM  NUMBER,  THE  VECTOR  SUM  OF  THE  ORBITAL  MAGNETIC  * 

C  QUANTUM  NUMBER,  AND  SPIN.  * 

C  * 

^*************************************************************************** 
REAL  F 

DIMENSION  F(30,30,0:3) 

COMMON/ TERMS /F 


£(2,— ,w) 

33792.5830 

!  2?4 

(ID) 

F(2,l,l) 

= 

77.9750 

!  2P4 

(3P) 

F(2,2,0) 

= 

15867.8620 

!  2P4 

(IS) 

F(3,0,l) 

— 

76794.9780 

F(3,0,2) 

= 

73768.2000 

F(3,l,l) 

= 

88630.9770 

F(3,l,2) 

= 

86629.0890 

F(3,2,0) 

= 

102662.0260 

!  3S 

(ID) 

F(3,2,l) 

= 

97488.4760 

F(3,2,2) 

= 

97420.7480 

F(4,0,l) 

=: 

96225.0490 

F(4,0,2) 

95476.7280 

F{4,1,1) 

99681.0510 

F(4,l,2) 

= 

99094.0650 

F(4,2,2) 

= 

102865.5620 

F(4,2,l) 

102908.4200 

F(4,3,2) 

= 

102968.2490 

F(4,3,l) 

= 

102968.3430 

F(5,0,l) 

= 

102411.9950 

F(5,0,2) 

= 

102116.6980 

F(5,l,l) 

= 

103870.0200 

F(5,l,2) 

= 

103626.2730 

F(5,2,l) 

105409.0080 

F(5,2,2) 

= 

105385.3850 

F(5,3,l) 

= 

105441.7240 

F(5,3,2) 

= 

105441.6450 

F(5,4,l) 

= 

105446.2900 
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F(5,4,2)  = 

F(6,0,l)  = 
F(6,0,2)  = 
F(6,l,l)  = 
F(6,l,2)  = 
F(6,2,l)  = 
F(6,2,2)  = 
F(6,3,l)  = 
F(6,3,2)  = 
F(6,4,l)  = 
F(6,4,2)  = 
F(6,5,l)  = 
F(6,5,2)  = 

F(7,0,l)  = 
F(7,0,2)  = 
F(7,l,l)  = 
F(7,l,2)  = 
F(7,2,l)  = 
F(7,2,2)  = 
F(7,3,l)  = 
F(7,3,2)  = 
F(7,4,l)  = 
F(7,4,2)  = 
F(7,5,l)  = 
F(7,5,2)  = 
F(7,6,l)  = 
F(7,6,2)  = 

F(8,0,l)  = 
F(8,0,2)  = 
F(8,l,l)  = 
F(8,1,2)  = 
F(8,2,l)  = 
F(8,2,2)  = 
F(8,3,l)  = 
F(8,3,2)  = 
F(8,4,l)  = 
F(8,4,2)  = 
F(8,5,l)  = 
F(8,5,2)  = 
F(8,6,l)  = 
F(8,6,2)  = 
F(8,7,l)  = 
F(8,7,2)  = 

F(9,0,l)  = 
F(9,0,2)  = 
F(9,l,l)  = 
F(9,l,2)  = 
F(9,2,l)  = 
F(9,2,2)  = 
F(9,3,l)  = 
F(9,3,2)  = 
F(9,4,l)  = 
F(9,4,2)  = 
F(9,5,l)  = 
F(9,5,2)  = 
F(9,6,l)  = 
F(9,6,2)  = 

F(10,0,l)  = 
F(10,0,2)  = 
F(10,l,l)  = 
F{10,1,2)  = 
F{10,2,1)  = 


105446.2900 

105165.2320 

105019.3070 

105912.0310 

105788.6840 

106765.8030 

106751.4620 

106785.2010 

106785.1600 

106787.8910 

106787.8910 

106788.5800 

106788.5800 

106627.9340 

106545.3540 

107072.0000 

106982.0000 

107582.7770 

107573.4870 

107595.1470 

107595.1400 

107596.9600 

107596.9600 

107597.3600 

107597.3600 

107597.4800 

107597.4800 

107497.2240 

107446.0360 

107778.0000 

107720.0000 

108114.0000 

108106.0790 

108120.7900 

108120.7900 

108122.0200 

108122.0200 

108122.2900 

108122.2900 
108122.3800 
108122.3800 
108122.4100 
108122.4100 

108056.0000 

108021.4000 

108244.0000 

108205.0000 

108476.7000 

108470.2000 

108481.1100 

108481.1100 

108481.9800 

108481.9800 

108482.1800 

108482.1800 

108482.2400 

108482.2400 

108436.3000 

108412.0000 

108568.0000 

108541.0000 

108736.1000 


F(10,2,2) 

F(10,3,l) 

F(10,3,2) 

F(10,4,l) 

F(10,4,2) 

F(10,5,l) 

F{10,5,2) 

F(10,6,l) 

F(10,6,2) 

F(11,0,1) 

F(ll,0,2) 

F(ll,l,l) 

F(ll,l,2) 

F(ll,2,l) 

F(ll,2,2) 

F(ll,3,l) 

F(ll,3,2) 

F(ll,4,l) 

F(ll,4,2) 

F(ll,5,l) 

F(ll,5,2) 

F(ll,6,l) 

F(ll,6,2) 

RETURN 

END 


=  108731,5000 
=  108738.8200 
=  108738.8200 
=  108739.4600 
=  108739.4600 
=  108739.6100 
=  108739.6100 
=  108739.6500 
=  108739.6500 

=  108705.5000 
=  108688.4000 
=  108803.0000 
=  108782.0000 
=  108927.2000 
=  108924.7300 
=  108929.4800 
==  108929.4800 
=  108929.9600 
=  108929.9600 
=  108930.0700 
=  108930.0700 
=  108930.1100 
=  108930.1100 


This  Page  Intentionally  Left  Blank 


114 


APPENDIX  C 
APOSTLE  OUTPUT 

LINE  POSITIONS,  EINSTEIN  COEFFICIENTS 
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OI  Triplet  Transitions  (A.,  Emstein  Coefficient,  and  transition  assignment) 


2.0536 

1.579E+05 

8p-  4d 

4.0356 

1.161E+08 

5g-4f 

2.0550 

^.621E+05 

lOd- 5p 

4.0972 

7.645E+05 

5d-4f 

2.0680 

3.311E+05 

11s-  5p 

4.2212 

1.017E+05 

8p-5d 

2.1337 

L611E+07 

7f-4d 

4.5414 

1.545E-H)6 

8d-6p 

2.1459 

1.109E+05 

7p-5s 

4.5609 

9.367E+06 

4p-  3d 

2.1605 

1.755E-H)7 

7g-4f 

4.5743 

9.502E+06 

7f-5d 

2.1671 

1.757E-H)5 

7d-4f 

4.5976 

8.834E-K)3 

lip- 7s 

2.1708 

1.265E+06 

9d-5p 

4.6218 

1.334E+06 

llf-6d 

2.1900 

4.640E+05 

10s-  5p 

4.6399 

1.491E+07 

7g-5f 

2.3563 

1.983E406 

8d-5p 

4.6489 

1.682E+07 

Th-Sg 

2.3889 

6.807E+05 

9s- 5p 

4.6536 

9.759E-K)4 

7f-5g 

2.4018 

2.548E-K)5 

7p-4d 

4.6625 

1.907E-K)6 

llg-6f 

2.5795 

2.838E+07 

6f-4d 

4.6643 

4.691E-K)5 

9s-  6p 

2.6181 

3.735E+07 

6g-4f 

4.6681 

2.038E+06 

llh-6g 

2.6333 

3.325E+05 

6d-4f 

4.6685 

5.916E+04 

lld-6f 

2.6934 

3.421E+06 

7d-5p 

4.6694 

2.577E-K)4 

Ilf-  6g 

2.7489 

7.059E+03 

lip-  6s 

4.6696 

2.421E+06 

,  lli-6h 

2.7569 

1.065E+06 

8s- 5p 

4.6699 

6.479E+03 

1  Ig-  6h 

2.8405 

2.105E+06 

llf.5d 

4.6706 

2.949E+05 

7d-5f 

2.8571 

5.062E-K)5 

6p-  5s 

4.9087 

2.082E+04 

llp-6d 

2.8668 

2.592E-K)6 

llg-5f 

5.0684 

l,813E+06 

10f-6d 

2.8691 

5.178E+04 

lld-5f 

5.1170 

2.673E-K)6 

10g-6f 

2.8704 

1.808E-K)6 

llh-5g 

5.1237 

3.019E-K)6 

lOh-  6g 

2.8709 

1.322E-K)4 

llf-5g 

5.1254 

2.063E+06 

lOi-  6h 

2.8935 

3.932E-K)7 

4p-4s 

5.1258 

3.831E+04 

10f-6g 

2.9388 

1.266E+04 

lOp-  6s 

5.1258 

8.458E-K)4 

lOd-  6f 

2.9464 

3.333E+04 

lip-  5d 

5.1259 

1.015E+04 

lOg-  6h 

3.0032 

2.865E+06 

lOf-  5d 

5.1545 

1.651E-K)4 

lOp-  7s 

3.0324 

3.641E+06 

10g-5f 

5,2445 

2.339E+05 

7p-6s 

3.0355 

7.270E+04 

lOd-  5f 

5.3902 

3.386E-K)5 

lld-7p 

3,0364 

2.686E+06 

lOh- 5g 

5.5488 

2.906E-K)4 

lOp-  6d 

3.0372 

1.918E+04 

lOf-  5g 

5.8299 

2.557E+06 

9f-6d 

3.0985 

7.330E+07 

4d-4p 

5.8935 

3.932E+06 

9g-6f 

3.1656 

4.569E-K)4 

lOp-  5d 

5.9022 

4.811E+06 

9h-6g 

3.2481 

2.584E-K)4 

9p-  6s 

5.9044 

3.779E+06 

9i-6h 

3.2551 

4.049E-H)6 

9f-5d 

5.9053 

1.755E+04 

9g-6h 

3.2892 

5.379E+06 

9g-5f 

5.9059 

6.139E-K)4 

9f-6g 

3.2939 

4.304E+06 

9h-5g 

5.9119 

1.280E-K)5 

9d-6f 

3.2949 

1.072E+05 

9d-5f 

5.9854 

2.846E+06 

7d-6p 

3.2951 

2,964E-K)4 

9f-5g 

6.0092 

4.879E+05 

lOd-  7p 

3.3166 

4.504E-K)5 

lld-6p 

6.0133 

1.915E+05 

7p-5d 

3.3293 

4.850E+05 

6p-4d 

6.1218 

1.552E+05 

lls-7p 

3.4533 

6.930E-K)6 

6d-5p 

6.1879 

3.683E-K)4 

9p-  7s 

3.5274 

6.562E-K)4 

9p-5d 

6.3084 

7.743E+05 

8s-  6p 

3,5410 

6.379E-K)5 

lOd-  6p 

6.4978 

1.994E+07 

5d-5p 

3.5798 

2.192E+05 

11s-  6p 

6.7650 

4.388E-K)4 

-  9p-  6d 

3.6259 

1.846E+06 

7s- 5p 

6.8586 

8.910E+06 

5p-5s 

3.6617 

1.227E+07 

5s- 4p 

7.1190 

7.505E+05 

9d-7p 

3.6876 

6.010E-K)6 

8f-5d 

7.2664 

1.615E+07 

6f-5d 

3.7309 

8.518E+06 

8g-5f 

7.3298 

2.260E-K)5 

10s-  7p 

3.7369 

7.724E-H)6 

8h-5g 

7.3801 

3.768E+06 

8f-6d 

3.7390 

5.017E-H)4 

8f-5g 

7.4255 

8.955E+05 

llf-7d 

3.7421 

1.694E-K)5 

8d-5f 

7.4285 

3.019E+07 

6g-5f 

3.8274 

6.449E'H)4 

8p-  6s 

7.4500 

5.442E+07 

6h-5g 

3.8991 

9.541E+05 

9d-6p 

7.4688 

2.378E+05 

6f-5g 

3.9474 

5.793E+07 

5f-4d 

7.4804 

6.153E+06 

8g-6f 

3.9615 

3.118E-K)5 

10s-  6p 

7.4917 

1.379E+06 

llg-7f 
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7.4940 

8.524E+06 

8h-6g 

12.2627 

6.280E’K)5 

llf-8d 

7.4974 

8.489E-K)6 

8i-6h 

12.3189 

1.028E-K)7 

7g-6f 

7.4994 

3.525E-K)4 

8g-6h 

12.3538 

1.762E+07 

7h-6g 

7.5013 

1.770E+06 

llh-7g 

12.3583 

l.OlOE+06 

llg-8f 

7.5024 

1.099E+05 

8f-6g 

12.3625 

2.892E-K)7 

7i-6h 

7.5033 

1.750E-H)6 

lli-7h 

12.3704 

9.047E-K)4 

7g-6h 

7.5041 

1.563E-K)4 

llg-7h 

12.3755 

1.429E-K)6 

llh-8g 

7.5042 

3.878E-H)3 

llh-7i 

12.3790 

1.749E+06 

lli-8h 

7.5046 

3.585E+04 

llf-7g 

12.3810 

1.153E+04 

llh-8i 

7.5072 

6.215E-K)4 

lld-7f 

12.3813 

2.605E+04 

llg-8h 

7.5256 

2.099E+05 

8d-6f 

12.3845 

4.452E-K)4 

llf-8g 

7.5524 

5.891E+05 

6d-5f 

12.3876 

2.320E-K)5 

7f-6g 

7.6583 

1.050E-K)4 

lip- 8s 

12.4006 

6.381E+04 

lld-8f 

inioi 

4.041E+06 

6s- 5p 

12.5380 

3.789E-K)5 

7d-6f 

8.1952 

1.387E-K)4 

llp-7d 

13.3869 

1.325E-K)4 

lip- 9s 

8.6502 

1.216E-K)6 

10f-7d 

13.3905 

2.825E+06 

6p-  6s 

8.6951 

1.152E+05 

8p-7s 

13.3909 

6.118E-K)4 

?p-  8s 

8.7017 

2.724E-K)5 

lld-8p 

13.9684 

1.623E+06 

7s- 6p 

8.7389 

1.925E+06 

10g-7f 

14.3123 

6.605E405 

9d-8p 

8.7516 

2.610E+06 

10h-7g 

14.5138 

1.031E-K)4  ■ 

lip-  8d 

8.7543 

2.836E+06 

10i-7h 

14.6370 

2.327E+05 

lld-9p 

8.7556 

6.881E+03 

lOh-  7i 

15.1235 

3.841E-K)4 

9p-7d 

8.7558 

2.551E+04 

10g-7h 

15.1906 

1.863E+05 

10s-  8p 

8.7576 

5.503E+04 

10f-7g 

16.0046 

8.474E-K)5 

lOf-  8d 

8.7646 

9.097E+04 

10d-7f 

16.1637 

1.397E+06 

lOg-  8f 

9.3390 

2.165E-K)4 

lOp-  8s 

16.1920 

2.083E-H)6 

lOh-  8g 

9.5969 

1.288E+06 

8d-7p 

16.1980 

2.791E+06 

lOi-  8h 

9.8795 

8.190E+04 

8p-6d 

16.2014 

2.195E+04 

lOh-  8i 

10.1500 

2.055E-K)4 

10p-7d 

16.2030 

4.497E+04 

lOg-  81i 

10.1626 

3.561E+05 

9s- 7p 

16.2127 

7.132E-K)4 

lOf-  8g 

10.3993 

3.435E-K)6 

5p-4d 

16.2520 

9.628E+04 

lOd-  8f 

10.4373 

4.046E*H)5 

lOd-  8p 

18.5869 

2.439E+06 

8f-7d 

10.7817 

1.212E+05 

11s- 8p 

18.9799 

4.195E‘K)6 

8g-7f 

11.1317 

1.705E-K)6 

9f-7d 

19.0357 

6.922E‘H)6 

8h-7g 

11.2761 

2.802E-H)6 

9g-7f 

19.0469 

1.096E+07 

8i-7h 

11.2966 

4.107E-H)6 

9h-7g 

19.0545 

3-927E+04 

8h-7i 

11.3010 

5.133E-H)6 

9i-7h 

19.0600 

1.040E+05 

8g-7h 

11.3033 

1.448E-K)4 

91i-7i 

19.0902 

1.769E+05 

8f-7g 

11.3043 

4.699E+04 

9g-7h 

19.2733 

2.407E+05 

8d-7f 

11.3103 

9.254E+04 

9f-7g 

19.5313 

3.459E+04 

lOp-  9s 

11.3436 

1.422E+05 

9d-7f 

19.5780 

2.811E+06 

7d-7p 

11.7127 

7.100E-K)6 

6d-6p 

19.8798 

1.363E+06 

6p-  5d 

12.0577 

5.766E+06 

7f-6d 
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2.0554 

2.660E+05 

7p-5s 

4.2834 

3.770E-K)4 

8p-5d 

2.0600 

7.568E-H)4 

8p-4d 

4.3152 

3.400E-H)6 

8d-6p 

2.0644 

3.061E+06 

9d*5p 

4.4710 

2.048E404 

lip- 7s 

2.0896 

8.208E4O5 

10s-  5p 

4.4789 

8.249E+05 

9s- 6p 

2.1143 

2.758E-H)7 

7f-4d 

4.5254 

1.585E+07 

7f-5d 

2.1604 

2.926E+07 

7g-4f 

4.5913 

2.244E-K)6 

llf-6d 

2.1714 

3.497E+05 

7d-4f 

4.6397 

2.486E-H)7 

7g-5f 

2.2322 

4.720E-K)6 

8d-5p 

4.6489 

2.803E+07 

7h-5g 

2.2753 

1.212E-K)6 

9s-  5p 

4.6536 

1.629E-H)5 

7f-5g 

2.4293 

1.177E+05 

7p-4d 

4.6624 

3.180E-K)6 

llg-6f 

2.5334 

7.951E+06 

7d-  5p 

4.6681 

3.396E+06 

llh-6g 

2.5513 

4.811E+07 

6f-4d 

4.6694 

4.302E+04 

llf-6g 

2.6180 

1.919E+06 

8s- 5p 

4.6696 

4.034E+06 

lli-6h 

2.6181 

6.225E+07 

6g-4f 

4.6699 

1.080E-K)4 

llg-6h 

2.6433 

6.568E+05 

6d-4f 

4.6738 

1.148E-K)5 

lld-6f 

2.6515 

1.648E-K)8 

4d-4p 

4.6908 

5.740E-K)5 

7d-5f 

2.6577 

1.825E+04 

lip-  6s 

4.9248 

6.316E+03  . 

llp-6d 

2.7233 

1.103E-K)6 

6p-  5s 

5.0109 

3.691E+04 

10p-7s 

2.7645 

6.729E+07 

4p-4s 

5.0318 

3.039E+06 

10f-6d 

2.8216 

3.593E-K)6 

llf-5d 

5.0950 

4.713E-K)5 

7p-6s 

2.8395 

3.144E-K)4 

lOp-  6s 

5.1169 

4.456E+06 

10g-6f 

2.8667 

4.321E-K)6 

llg-5f 

5.1237 

5.032E+06 

10h-6g 

2.8704 

3.013E+06 

llh-5g 

5.1254 

3.438E-K)6 

lOi-  6h 

2.8709 

2.208E+04 

llf-5g 

5.1258 

6.395E-K)4 

10f-6g 

2.8710 

1.021E+05 

lld-5f 

5.1259 

1.692E+04 

lOg-  6b 

2.9441 

1.351E+04 

lip-  5d 

5.1379 

1.635E+05 

10d-6f 

2.9820 

4.877E+06 

lOf-  5d 

5.1474 

7.692E+05 

lld-7p 

3.0323 

6.069E+06 

10g-5f 

5.5880 

8.536E+03 

10p-6d 

3.0364 

4,476E+06 

lOh- 5g 

5.6029 

6.054E+06 

7d-6p 

3.0372 

3.202E+04 

lOf-  5g 

5.6847 

4.145E-K)7 

5d-  5p 

3.0396 

1.429E-K)5 

lOd-  5f 

5.7159 

1.094E+06 

10d-7p 

3.1390 

6.104E+04 

9p-  6s 

5.7815 

4.259E+06 

9f-6d 

3.1690 

1.808E+04 

10p-5d 

5.8603 

2.765E+05 

11s- 7p 

3.1887 

1.042E+06 

lld-6p 

5.8934 

6.553E+06 

9g-6f 

3.1998 

1.548E+07 

6d-5p 

5.9022 

8.019E-H)6 

9h-6g 

3.2303 

6.868E+06 

9f-5d 

5.9044 

6.298E+06 

9i-6h 

3.2891 

8.967E+06 

9g-5f 

5.9053 

2.924E+04 

9g-  6h 

3.2939 

7.173E+06 

9h-5g 

5.9059 

1.025E-K)5 

9f-6g 

3.2951 

4.949E-K)4 

9f-5g 

5.9346 

2.463E-K)5 

9d-6f 

3.3019 

2.101E-K)5 

9d-5f 

5.9761 

7.404E+06 

4p-3d 

3.3084 

2.679E+07 

5s- 4d 

6.0254 

7.811E-K)4 

9p-  7s 

3.3981 

1.458E-K)6 

10d-6p 

6.0337 

1.388E-K)6 

8s-  6p 

3.4210 

2.279E+05 

6p-  4d 

6.2633 

7.390E-K)4 

7p-5d 

3,4257 

3.400E+06 

7s- 5p 

6.6244 

1.513E+07 

5p-  5s 

3.4486 

3.804E+05 

lls-6p 

6.7195 

1.656E+06 

9d-7p 

3.5466 

2.513E+04 

9p-5d 

6.8798 

1.263E+04 

9p-6d 

3.6558 

1.027E-K)7 

8f-5d 

6.9930 

4.077E+05 

10s-  7p 

3.7027 

1.428E+05 

8p-  6s 

7.1440 

2.631E+07 

6f-5d 

3.7292 

2.146E+06 

9d-  6p 

7.1786 

8.168E+06 

6s-  5p 

3.7308 

1.420E-K)7 

8g-5f 

7.3029 

6.210E+06 

8f-6d 

3.7369 

1.288E-K)7 

8h-5g 

7.3747 

1.487E-K)6 

llf-7d 

3.7390 

8.375E+04 

8f-5g 

7.4281 

5.031E-K)7 

6g-5f 

3.7531 

3.308E+05 

8d-5f 

7.4500 

9.070E-K)7 

6h-5g 

3.8120 

5.436E+05 

10s-  6p 

7.4690 

3.968E+05 

6f-5g 

3.8819 

9.602E+07 

5f-4d 

7.4802 

1.025E+07 

8g-6f 

4.0354 

1.935E+08 

5g-4f 

7.4852 

2.262E+04 

lip-  8s 

4.1371 

1.496E+06 

5d-4f 

7.4916 

2.298E-K)6 

llg-7f 
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7.4940 

7.4974 

7.4994 

7.5013 

7.5024 

7.5033 

7.5041 

7.5042 
7.5046 
7.5211 
7,5705 
7.6346 
8.2746 
8.3006 
8.5132 
8.5812 
8.7388 
8.7516 
8.7543 
8.7556 
8.7558 
8.7576 
8.8000 
8.8962 
9.1327 
9.6209 
9.8863 
10.3248 
10.3263 
10.3358 
10.3866 
11.0178 
11.2760 
11.2966 
11.3010 
11.3033 
11.3043 
11.3103 
11.4278 
11.8529 
12.1448 
12.3183 
12.3538 
12.3583 
12.3625 
12.3704 
12.3755 
12.3790 
12.3810 
12.3813 
12.3845 
12.3878 
12.4387 
12.6851 
12.9975 
13.1456 
13.1475 
13.1759 
13.2158 
13.3298 


1.421E-K)7 

8h-6g 

13.8941 

4.941E-K)5 

lid-  9p 

1.415E-H)7 

8i-6h 

14.4509 

3.433E-H)5 

10s-  8p 

5.875E+04 

8g-6h 

14.7946 

1.608E-H)3 

Dp-  8d 

2.950E-K)6 

llh-7g 

15.8042 

1.384E-K)6 

10f-8d 

1.834E+05 

8f-6g 

15.8350 

1.031E+04 

9p-  7d 

2.917E+06 

lli-7h 

16.1637 

2.327E'H)6 

10g-8f 

2.604E+04 

llg-7h 

16.1920 

3.471E+06 

lOh- 8g 

6A63B+Q3 

llh-7i 

16.1980 

4.651E-K)6 

lOi-  8h 

5.984E'K)4 

llf-7g 

16.2014 

3.659E-H)4 

lOh-  8i 

1.192E+05 

lld-7f 

16.2030 

7.494E-K)4 

lOg- 8h 

4.029E+05 

8d-6f 

16.2127 

1.190E-K)5 

10f-8g 

1.144E+06 

6d-5f 

16.3744 

1.817E*H)5 

lOd- 8f 

2.970E+03 

llp-7d 

16.9065 

6.013E+06 

7d-7p 

5.972E+05 

lld-8p 

18.2714 

3.888E+06 

8f-7d 

2.247E+05 

8p-  7s 

18.9796 

6.988E+06 

8g-7f 

2.006E+06 

lOf-  7d 

18.9933 

7.629E+05 

lOd-  9p 

3.209E+06 

10g-7f 

19.0357 

1.154E-K)7 

8h-7g 

4.349E+06 

10h-7g 

19,0469 

1.826E-K)7 

8i-7h 

4.727E+06 

10i-7h 

19.0545 

6.545E-H)4 

8h-7i 

1.147E+04 

10h-7i 

19.0600 

l,733E+05  • 

Sg-Th 

4.252E+04 

10g-7h 

19.0902 

2.953E+05 

8f-7g 

9.184E-K)4 

10f-7g 

19.2456 

6.566E+04 

lOp-  9s 

1.735E+05 

lOd-  7f 

19.5718 

4.573E-H)5 

8d-7f 

2.786E-K)6  8d-  7p 

4.475E-H)4  lOp-  8s 

6.627E+05  9s-  7p 

8.728E+05  lOd-  8p 
2.640E'K)4  8p-6d 

2.172E-K)5  11s- 8p 

4.444E+03  lOp-  7d 
1.408E+07  6d-6p 

2-783E+06  9f-  7d 

4.669E+06  9g-7f 

6.845E+06  9h-7g 

8.555E-K)6  9i-  7h 

2.413E+04  9h-  7i 

7.832E+04  9g-7h 

1.545E-K)5  9f-7g 

2.699E-K)5  9d-  7f 

9.279E+06  7f-6d 

1.034E-K)6  llf-8d 
1.712E+07  7g-6f 

2.936E-K)7  7h-6g 

1.683E+06  llg-8f 
4.820E+07  7i-  6h 

1.508E-K)5  7g-6h 

2.382E-K)6  llh-8g 
2.914E-K)6  lli-8h 
1.922E+04  llh-8i 
4.341E+04  llg-  8h 
7.430E+04  llf-8g 
3.873E+05  7f-  6g 

1.212E-K)5  lld-8f 
7.309E+05  7d-6f 

4.796E+06  6p-  6s 

3.026E+06  5p-4d 

2.679E+04  lip- 9s 
1.170E+05  9p-8s 

3.135E+06  7s- 6p 

1.396E-K)6  9d-8p 


